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Putyourself in the pilot’s seat of a Piper 181 Cherokee Archer for an awe-inspiring flight over realistic scenery 
from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic view 
as you practice takeoffs, landings, and aerobatics. Complete documentation will get you airborne quickly 
even if you’ve never flown before. When you think you’re ready, you can play the World War I Ace aerial battle 
game. Flight Simulator II features include ■ animated color 3D graphics ■ day, dusk, and night flying modes 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
instrumentation ■ VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■ World 
War I Ace aerial battle game ■ complete information manual and flight handbook. 


See your dealer . . . 

or write or call for more information. For direct orders please add $1 .50 for 
shipping and specify UPS or first class mail delivery. American Express, Diner’s 
Club, MasterCard, and Visa accepted. 

Order Line: 800/637-4983 


LOGIC 


Corporation 
713 Edgebrook Drive 
Champaign IL 61820 
(217) 359-8482 Telex: 206995 


LOTSABYTES CONTINUES THE WAR ! 

WAR on high prices ! We re going to put an end to the software price 'ripoff. And YOU 
can help ! Just keep those orders coming while you continue to enjoy the quality, 
quantity, selection and low prices that you deserve. Our National Public Domain Copy 
Service will save you time, tedious work, and money. And our exclusive distribution of 
sharply discounted commercial programs will bring you some of the finest programs for 
the lowest possible price, usually 50% and more off retail! You continue to get FREE 
BONUSES with each purchase of three or more disks. 


PUBLIC DOMAIN SOFTWARE 


#1 

#2 

#3 

#4 

#5 

GAMES 

UTILITIES 

AMS MUSIC 

GAMES 

EDUCATION 

Two full disk 

25 powerful 

25 Advanced 

All different ! 

Loaded with 

sides packed 

programs to 

Musicsystem 

14 more 

28 programs 

with over 

help you get 

files including 

better games 

on 2 disk sides 

25 games 

the most out of 

a new Player 

on 2 disk 

Fun learning 

including some 

your Atari 

program. 

sides. Some 

for the whole 

Arcade quality. 

computer. 

2 sides. 

Arcade types. 

family. 

$7.95 

$7.95 

$7.95 

$7.95 

$7.95 

#6 

#7 

#8 

#9 

#10 

AMS MUSIC 

GAMES 

UTILITIES 

GAMES 

UTILITIES 

25 all-time 

Two disk sides 

17 more 

Two full sides 

A new 

favorites 

packed with 

power-packed 

filled with 

assortment 

with a 

14 more 

utilities to 

17 of the 

of 17 great 

Player 

great games. 

help unleash 

best and 

and powerful 

program. 

Some 

full potential 

most recent. 

programs 

Two sides. 

Arcade types. 

of your Atari. 

Some Arcade. 

Don't miss it ! 

$7.95 

$7.95 

$7.95 

$7.95 

$7.95 

#11 

#12 

#13 

#14 

#15 

GAMES 

ADVENTURES 

EDUCATION 

AMS MUSIC 

UTILITIES 

NEW 1 

NEW! 

NEW ' 

NEW! 

NEW! 

Our newest. 

2 full disk 

2 disk sides 

2 sides 

Another 

2 sides 

sides 

filled with 

filled with 

assortment 

filled with 

filled with 

something 

great music 

of fine 

great games. 

text 

for 

and a player 

programs. 


adventures. 

everyone. 

program. 

Not to be missed. 

$7.95 

$7.95 

$7.95 

$7.95 

$7.95 


Lotsa Bytes EXCLUSIVES 



Learn the basics of music with this light- 
hearted but very thorough approach. 
Covering such topics as note recognition, 
key signatures, note counting, and much 
more, it is designed for use by both the 
individual student and music class. 

This program includes a thoroughly 
illustrated manual and offers a OUIZ 
MASTER utility that allows the teacher or 
the self-taught student to create their own 
A-B-C-D type tests, with a sample quiz 
included. 

Originally $39.95 Only $14.95 


GREAT GAMES ! 

SPACE GAM ES: Three games for one low 
price!.. In Aliens you can't get them all and 
the pace keeps getting faster. When you 
do get rid of most of them, you are left in a 
space quadrant peppered with mines. Will 
you Survive? If you do, you must 
penetrate the alien’s spaceship, survive a 
Robot Attack, and get back your stolen 
cloaking' device! Interested? 

$24.95 list LotsaBytes price: $9.95 

THE BEAN MACHINE by Steve Robinson 
is an Award Winning Arcade game that 
will drive you crazy balancing a series of 
beams while trying to get all the beans to 
roll down, without touching, all the while 
avoiding strange creatures' who drop in 
to steal the beans. It's addicting! 

$24.95 list LotsaBytes price: $9.95 


ADVANCED 
MUSICSYSTEM II 

by LEE ACTOR 


Allows you to create music 
with your Atari computer! 
All new machine code. 

* Control over pitch 
duration, envelope 
dynamic level, meter, 
tempo and key. 

* 4 independent voices 

* 5'/2ioctaves per voice 

* Save up to 8200 notes 

* Custom DOS 
■ FULL instructions 

* 24K disk 
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Originally S29.95 Only $14.95 


QUALITY WORD PROCESSING 

ESI WRITER! At last a brand-new Word Processor 
that has more features and is easier to use than 
anything else available for the Atari. Easy for the 
beginner to use, it asks questions and remembers 
the answers. ESI WRITER is so sophisticated that it 
has many more features we don't even have room to 
mention ! Works with ANY Atari. 

* Reads any text file * Built in Help screen 
* Very fast ! * Works with ANY printer 

* Instant top, bottom or text location 
without scrolling! 

* Every printer feature * DISK ONLY (Any Atari) 
* Search and replace * Block move text 
’Page eject/start * Set margins/lines etc. 
’Full justification * Print headers etc. 


ORIGINAL ADVENTURE 

by Bob Howell 


For all Atari computers. 
The Original 
Colossal Cave 
Adventure faithfully 
reproduced from the 
mam-frames'. 

This is the one 
that launched the whole 
Adventure craze of toda^ 
’ Two mazes 

* 130 rooms 
’ Deadly Dragons 

* Nasty Dwarves 

* Tenacious Troll 
’ The Pirate & More! 

* 86 coded hints 

* SAVE RESUME 

* 40K disk or 32K tape 
Originally S24.95 



’ Block delete etc. * Change video color 
* Over 50 pages of docs and tutorials 
TRUST US ON THIS ONE! YOU WILL LOVE IT ! 
Originally S49.95 LotsaBytes price $19.95 


* * FREE BONUSES * * 

Now for each 3 disks ordered 
you may choose any 1 of the following disks 
FREE!! 

... buy 3 - get 1, buy 6 - get 2, buy 9 get 3 ... 

a. The Atari XL TRANSLATOR DISK 

that enables XL owners to use most 
400/800 software. FREE ! ! 

— or — 

b. An all different AMS MUSIC disk 

with Player. FREE!! 

-or - 

c. Your choice of one of the P.D. disks — 

#1, #2. #3. #4, #5, #6, #7. #8, 

#9, or #10 (specify one) FREE!! 


DIGGERBONK. another Award Winning 
game by Steve Robinson, challenges you 
to find your way through a continuously 
scrolling maze while avoiding some really 
strange creatures. Along the way you will 
need to Bonk some of them, but watch out 
for the bombs. 

S24.95 list LotsaBytes price: $9.95 

GUESS WHAT'S COMING TO DINNER 

lets you try to manueverasnake through 7 
levels if you can keep it from starving or 
being electrocuted. Lots of surprises! One 
or two players. 

$24.95 list LotsaBytes price: $9.95 


CREATIVE LEARNING 
ADVENTURES 

Ages 4 to 10 — Disk only 

1. Hours of educational fun playing 3 
exciting creative adventures with a 
friendly alien learning about our planet 
Earth. Hand/eye co-ordination, drawing, 
and music skills are emphasized. 

S24.95 list LotsaBytes price: $12.95 

2. Four challenging learning games that 
are the favorites of our friendly alien. 
Helps your child to develop logical 
reasoning ability. 

524.94 list LotsaBytes price: $12.95 

3. These 3 Fun-Day learning games will 
help with intellectual development, 
hand/eye co-ordination, logic, spatial, 
and analytical abilities. 

524.95 list LotsaBytes price: $12.95 


LotsaBytes 


Full 100”. Replacement guarantee. Any disk lound to be detective will be replaced tree and we will also refund 
your return postage. All orders shipped by First Class U.S. Mail. Add SI. 95 shipping and handling lor 1 to 5 disks. 
Add S2.95 lor 6 to 12 disks. California residents add 6% sales tax. Outside of U.S.A. and Canada add 15V U.S. 
Funds only. We accept checks or Money O rders. Sorry, no COD or Charge Cards. Allow three weeks lor personal 

15445 Ventura Blvd., Suite 10G, Sherman Oaks, CA 91413 
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The Home Accountant hardware requirements: 48K Atari 800/800XL, one or two disk drives, printer ( 132 Col. optional) 
The Home Accountant is a registered trademark of Arrays, Inc./Continental Software. Atari is a registered trademark of Atari, Inc. 





Color-the-Cover winners 22 




1 F E A T U R E S 

ANTIC AT FIRST GEM SEMINAR by Nat Friedland 

Convertinq IBM PC software to Atari 

12 

PIXEL SCANNER by Lyn Buchanan 

Enhance your picture details like NASA does 

TYPE-IN SOFTWARE 

14 

ATARI IN LIGHTS by Michael Ciraolo 

Theater lighting designer’s Atari CAD 


16 

COLOR PALETTE by John Felton 

Joystick selection of program hues 

TYPE-IN SOFTWARE 

21 

PRINT SHOP by Jack Powell 

Smash-hit graphics software now in Atari version 


25 

COLOR INKLE LOOM by Gerald Hagopian 

Your Atari master weaver 

TYPE-IN SOFTWARE 

29 


PLAY IT AGAIN, ATARI! by Nat Friedland 30 

Atari makes MIDI music with Casio 


GUITAR TUTOR by Frank Imburgio and Grace Barry 35 

Learn and play guitar chords on your Atari type-in software 


THE MUSICIAN by Angelo Giambra 

Type-in "music construction” software 

TYPE-IN SOFTWARE 

37 

VIEW 3-D by Paul Chabot 

Rotate and view 3-D objects in ACTION! 

TYPE-IN SOFTWARE 

38 

G.LLP. THE GREAT by DarekMihocka 

Fast graphics power from BASIC 

TYPE-IN SOFTWARE 

45 
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THE # \ SYSOP by Michael Ciraolo 

Ron Luks of SIG’Atari 


8 

LOGO 

TURTLE PIANO by Craig McBain 

Easy Logo keyboard music 
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TURBO TYPO II by David McLaughlin 

Speedier TYPO II with three-line fix type-in software 

GAME OF THE MONTH 
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The sky cowboy game type-in software 
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BEATING THE ZURK BLUES 

I’ve been having problems typing in line 
5000 of “Zurk” (March 1985). Please help. 

Douglas Hiatt 
Largo, FL 

Line 5000 contains the phrase 
“SET 1 = LI *2 56”. We are going to assume 
here that you ’re using the BASIC XL car- 
tridge from O.S.S. This BASIC is more 
powerful than Atari BASIC and has 
several extra commands. One of these 
commands is SET and thus, it cannot be 
used as a variable without special 
precautions. Seepage 131 of your BASIC 
XL manual on this. “ZURK” runs as 
published and should work in BASIC XL 
if you change all the SETs to some other 
variable name. —ANTIC ED 

TYPO II TYPO 


TYPO II (January 1985) does not work on 
my 1200 XL. It doesn’t accept the SET 
commands. Any suggestions? 

Mary Mitcham 
Houston, TX 

The original instructions in " How to use 
TYPO II” read “BASIC XL cartridge 
owners type SET 5,0”, etc. We have 
subsequently cleared up the wording. 
-ANTIC ED 

SOME THOUGHTS ON AL 

In most issues of Antic, there are type-in 
programs listed in BASIC as well as in 
assembly language. I’ve spent many hours 
typing in AL programs and found that 
none worked. In particular, I’ve had prob- 
lems with “Keyboard Commander”, 
(March 1985). Can you help me? 

Henry Jennings 
Detroit, MI 

If the AL listing is an addendum to a 
BASIC program, it’s printed primarily as 
a study example for serious AL program- 
mers. Unlike BASIC, machine language 
is unforgiving. One mistyped bit of code 
and your computer will lock up. 

“Keyboard Commander” loads into 
Page Six. So does MAC/65. Unfortunate- 
ly, there is only room for one program 
in Page Six, and the big orange super- 
cartridge is not about to let it be 
“Keyboard Commander”. 


“Keyboard Commander” will run on 
Atari Assembler Editor, Atari BASIC and 
ACTION!. It will not run on MAC/65 
unless you relocate the code. —ANTIC ED 

OKIMATE 10 REVISITED 

I think that your comments on the Oki- 
mate 10 were a bit harsh. Perhaps you were 
using the wrong type of paper. True, 
dumps on plain paper are barely readable. 
However, I used black on white dumps on 
thermal paper (I use IBM PC Compact 
Printer Paper, # 1503926). For color prints, 
try' Scotch 501 Transparency Film for Plain 
Paper Copiers. 

Alan Fillmore 
Bakersfield, CA 

Several readers have suggested that we 
used the wrong type of paper in review- 
ing the Okimate 10. Well, Antic finds it 
refreshing to be considered too tough on 
an advertiser for a change. We recognize 
that some readers have had better results 
ivith that printer than we did. 

When we reviewed the Okimate 10, we 
used the paper, printhead, printer and 
ribbons provided by the Okimate Cor- 
poration. We followed the company’s 
instructions— but then wound up spend- 
ing most of a workday tinkering with the 
configuration in order to get even the 
slightly improved results we printed. 

We assume that a major company 
would ship a working pre-tested piece of 
equipment to assure the best possible 
review. If we were, in fact, provided with 
a bad printhead that we didn ’t recognize 
at the time, this is a noteworthy problem 
that might be faced by anybody purchas- 
ing the printer. —ANTIC ED 

OF BITS AND BYTES 


What is so special about the number 256, 
as in 10 PEEK A(195)*256? 

Kevin A. Scott 
Algonquin, IL 

The highest number you can have in any 
one address is 256. Your Atari is an eight- 
bit, binary computer. “Binary” means it 
only understands two numbers, 0 and 1. 
TIjese numbers are called “bits”. Eight bits 
make a “byte” and the maximum dif- 
ferent combinations of eight bits is 256 
(0-255). 
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Since memory is nothing but a se- 
quence of byte addresses, and we want 
to reach more than 256 of them, we put 
two bytes together and have 256 com- 
binations times 256, or, 65,536. 

These double-byte numbers are called 
“words" and the two bytes that make up 
a word are called the “ low-byte ” and the 
“high-byte". When the low-byte goes be- 
yond 255 (remember 0-255) it returns to 
zero and the high-byte is upped by one. 


This means that each unit in the high byte 
is equal to 256. 

Now if, for example, the high-byte con- 
tains 2, its value is 2 *256, or 512. 

And if the low-byte contains 50, the two 
bytes together equal 562. Words are stored 
in the Atari in a backwards order of low- 
byte followed by high-byte If the number 
562 was stored in locations 88 and 89, 
88 ivould hold 50 and 89 would hold 2. 
The formula to find the values of these 


two locations is: WORD=PEEK(88)+ 
PEEK(89)*256 - ANTIC ED 

BATTERIES MOVES 


Batteries Included, publishers of PaperClip 
(reviewed in Antic last month) moved to 
30 Mural Street, Richmond Hill, Ontario, 
L4B 1B5 Canada. However, please don’t 
order products from them by mail. □ 


help! 


KWIK DUMP 


“Kwik Dump” (Antic, March 1985) con- 
tains an error in line 1070. The last number 
in that line should be 27 instead of a zero. 

THIEF 


Readers are having problems typing in 
‘‘Thief’, the March 1985 Game of the 
Month. The game does run as published, 
but if your TYPO II code for line 1105 is 
UK, make sure that the inverse [p] in that 
line is lower-case. 

WIDE TEXT 


Bill Morris’s “Wide Text” (Antic, January 
1985) cannot print a double-width [Z], 
Substitute these lines to correct this 
problem: 

In the assembler listing: 

6680 CP Y »27**8 ;8 

BYTES TO A LETTER 

In the BASIC listing: 

CT 20138 DATA 216,208,2 
13,185,8,224 

S.A.M. SOURCE CODE 


The assembly language listing of “S.A.M. 
Handler” (Antic. February 1985) contains 
an error in line 900. LDY SOI should read: 
LDY #01. The BASIC listing is correct, 
however, and runs as published. 


TYPO II BONUS 


Ever since our improved TYPO II program 
typing proofreader began appearing in 
January, Antic hits been getting letters that 
ask for TYPO II codes to the most popular 
and difficult pre-1985 programs. These 
will be in the issue Next Month! 

You’ll find the TYPO II line codes for 
the four most-requested listings— ‘Biff- 
drop,” “Escape From Epsilon," “Advent 
X-5” and “Adventure Island.” And we’ll 
print codes for more Antic golden oldies 
if we get enough requests. 


CHECKED 100 TIMES 


I typed in a program from the July 1984 
issue and it still doesn’t run. I checked my 
listing 100 times and I have not found a 
typing error. I also checked the following 
issues for an error report but didn’t find 
one. 

H. Reynaldos 

Miami, FL 

This is typical of many letters we receive 
from frustrated readers who type in a 
program only to find it does not run. 
They may check it many times and when 
it still won’t work, they naturally suspect 
a publishing error. 

Antic does make mistakes, as you can 
see from the magazine’s Help! items and 
the monthly Error File. But the great 
majority of program problems come 
from readers mistyping the listing or mis- 
understanding the instructions. 


If you are having problems with a pro- 
gram that was published more than three 
months ago, and you don’t see a correc- 
tion printed in either Help! or Error 
File, you can bet the error is on your end. 

That’s because most major program 
problems are discovered within tivo 
weeks of publication! But due to the long 
turnaround time for four-color national 
magazines, the soonest you can expect 
that error to appear in Help! is two issues 
later. For example, a February error- 
should show up in April’s Help! 

Program errors which appear in Help! 
are transfer-red the following month to the 
Error File where they remain for ap- 
proximately six months. A complete in- 
dex of all Antic errors can be found on 
our ANTIC ONLINE service on Compu- 
Serve. 

We test all programs on Atari 800s, 
1200XLs, 600XLs and 800XLs using both 
cartridge and built-in BASIC. We use 
Atari 810, 1050 and Indus GT drives with 
Atari DOS 2. OS, single density. 

Some of our listings are more difficult 
to type in than others. If you are just start- 
ing, we strongly suggest that you first try 
the shorter listings and avoid the frustra- 
tion of typing in very long listings with 
Atari special characters. 

When using TYPO II, be careful that 
you have typed in every line. It’s not so 
hard to miss one entire line and TYPO 
II won't spot it. If you ’re sure all the lines 
are there and the program still won’t run, 
recheck each TYPO II line code. —ANTIC ED 
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THE #1 SYSOP 

Ron Luks of SIG* ATARI 


by MICHAEL CIRAOLO, 
Antic Associate Editor 


Once you read this latest issue of 
Antic, log onto CompuServe and 
type GO ANTIC— you’ll see a 
preview of the magazine’s NEXT 
issue!! 

In the ANTIC ONLINE preview, 
you’ll find a comprehensive look at 
all the stories and programs in the 
next Antic Magazine— the July 
Computer Challenges issue. 

You’ll even find a major excerpt 
or two from the upcoming issue’s 
featured articles— such as our Atari 
chess software tournament or our 
interview with the boss of Strategic 
Simulations, Inc. 

And as a special CompuServe 
bonus, you can now download 
from SIG* Atari the complete pro- 
gram that won Antic's Color-The- 


Cover Contest. This scrolling two- 
screen picture won’t be on the 
monthly Antic Disk until next issue, 
even though you’ll find its photo in 
the current magazine. To download 
this file, type DL4 at the SIG ‘Atari 
prompt. This puts you into Data 
Library 4, where BRO WINNER.* is 
what you type next. If you’re using 
an Xmodem protocol program (such 
as HomePak or Chameleon) choose 
the WINNER. XMO file. With 
TSCOPE, use the WINNER.BIN file. 

ANTIC ONLINE special bulletins 
may be downloaded for reprinting 
in newsletters of users groups affili- 
ated with the Antic Worldwide Users 
Network. Officers of Atari users 
groups may write to the Antic WUN 
Coordination for details. 


Back when the IBM PC had just come 
out and Ron Luks was thinking about 
buying one, a friend showed him 
Atari’s classic Star Raiders game. Luks 
bought an Atari to play with while he 
was on the IBM waiting list. As it turn- 
ed out, he never bought an IBM PC. 

Instead Luks, 33, became the 
system operator (sysop) of SIG ‘Atari 
on CompuServe — the world’s largest 
Atari bulletin board, with some 6,000 
enrolled members. 

At the time he bought his Atari, 
Luks was a stockbroker and money 
manager who traded options on the 
American Stock Exchange. Previous- 
ly he had taught scuba diving in Miami 
for a few years. “Fooling around with 
the Atari was light and fun, like a puz- 
zle, after a high-pressure day in Wall 
Street,” he said. 

One of Luks’s first peripherals was 
a modem. “I got the Hayes Smart- 
Modem, an 850 interface and the 
original TeleLink cartridge, which 
came with a CompuServe Starter Kit.” 

EARLY COMPUSERVE 

Back then, CompuServe wasn’t pri- 
marily concerned with sponsoring 
special interest groups (SIGs). So 
when Luks first logged onto the 
system, he “looked all over for the 
word Atari.” It wasn’t there. Luks then 
began to spend time in the Popular 
Electronics magazine online edition. 

“In those days, the network had no 
online sysops, no help. It was like a 


big puzzle,” Luks said. “I kept leaving 
messages — How can I do this? Why 
can’t it do that?” The messages were 
picked up by the sysop about once a 
month. 

CompuServe finally collapsed 
under Luks’ badgering. “They made 
me an assistant sysop and gave me a 
free flag,” which meant he would 
have free access to the network. This 
was a good deal for a man who had 
monthly connect bills “approaching 
four figures”. 

FILLING PCS-132 

One thing led to another, and Luks 


was soon allowed to set up an Atari 
board. “They said ‘There are some 
empty pages at PCS-132’ and I got to 
fill them up.” Luks took as assistant 
sysops a few of the most active mem- 
bers interested in Atari — such as 
Michael Reichmann of Batteries In- 
cluded and programmers Steve Ahl- 
strom (SynFile+ , Paperclip) and Russ 
Wetmore (Preppie, HomePak). 

After an all-nighter over cappuc- 
cino in Greenwich Village, Luks came 
up with the name SIG ‘Atari. “It’s dif- 
ferent from ‘the Atari SIG,’ the ‘Radio 
Shack SIG’ and so on. Atari is a word 
continued on pase 19 
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Dorset! 


For Your Atari Computer 

TRS 80 Color I, III & 4 • Apple • Commodore • IBM PC Jr. 



roeal Software 
Passes 
the Cost- 
Efficiency 
Test! 


For computer assisted instruc- 
tion, our software more than 
passes the test.. .it EXCELS! With 
over 1000 educational programs 
designed specifically to concen- 
trate learning for all users, from 
kindergarten level to advanced in- 
dividual studies, from slow learn- 
| ers to exceptionally bright stu- 
dents, you’ll get positive results 
I with our quality, economically- 
I priced courseware. 


• 500 Programs Available for TRS 
80 Color; 400 for IBM PC Jr. 



Interactive Tutorial Programs 


Over 1000 Programs with Full Time Audio Narration, Pictures & Text! 

We’re Your Educational 
Software Source 

Course No. of Programs 

Reading 
Mathematics 
Comprehension 
History 


Algebra 

Spelling 

Government 


256 

128 

48 

32 

16 

16 

16 


Atari 400/600/800/1200 computers require the Atari cassette recorder and the Dorsett 
4001 Educational Master Cartridge, $9.95. Apple II, TRS 80 1, III, & 4, and Commodore 64 
computers require respective conversion kits (plug-in board and stereo cassette 
player), $99.00. For the IBM PC Jr. a cassette adapter cable and a good cassette 
recorder are required. A Radio Shack CCR-81 or CCR-82 is recommended. 

$59.90 for an album containing a 16-program course (8 cassettes with 2 programs, each 
at $3.75 per program). $8.80 for a 2-program cassette. 


16 Programs in each of the following: 

Carpentry - Electronics - Health Services 
Office Skills - Statistics - First Aid/Safety 
Economics - Business - Accounting 
Psychology 
AND MANY MORE! 

Dealer inquiries welcome 


Send fora catalog of over 1000 programs for Atari, TRS 80, Apple, etc. 
For more information, or to order call: 

TOLL FREE 1-800-654-3871 

IN OKLAHOMA CALL (405) 288-2301 



-@-o 


Educational Systems, Inc. 

Box 1226 Dept A Norman, OK. 73070 






logo 



TURTLE PIANO 

Easy Logo keyboard music 


A simple but adaptable Ix)go pro- 
gram that plays a musical scale from 
the Atari keyboard. Works on all 
Atari computers of any memory size. 
Disk or cassette. 


Children love to sit in front of a piano 
keyboard and pound out simple 
melodies. The child’s joy comes from 
immediate success at making music 
and a rare chance to control the 
environment. 

With an Atari, Logo and just a few 
short commands, children can have 
the same kind of musical fun they 
would have with a piano, but with a 
little extra learning thrown in. 

Turtle Piano converts the computer 
keyboard’s home row — A, S, D, F, G, 
H, J, K, L, ;, + and * — into a 12-key 
piano that plays a do-re-me scale in 
the Key of C without sharps and flats. 

It also changes the screen turtle into 
an eighth note which jumps around 
to the appropriate spot on a musical 
staff whenever a note is play,ed. As 
each note is played, its letter-name is 
also printed on the screen. 

Turtle Piano can also remember 
your compositions so you may listen 
to them over and over again. 

Though it is not a particularly com- 
plex program, Turtle Piano is an 
engrossing project for young com- 
puter users and programmers. So type 
in Listing 1 and SAVE a copy before 
you RUN it. 


by CRAIG McBAIN 

HOW IT WORKS 

BEEP, the heart of the program, uses 
the first sound channel (TOOT 0) to 
play the notes. After you have typed 
in the BEEP procedure, if you type 
BEEP followed by a number greater 
than 14 you will hear a nice note. The 
number 260.7 will give you Middle 
C. Why? A violin string (or anything 
else) vibrating at 260.7 cycles per se- 
cond produces a Middle C. 

The PLAY procedure ties the home 
row keys to their assigned pitch 
values. If a key is pressed which is not 
one of the home row keys, PLAY will 
output a frequency of 50000 (too high 
to hear). So you can use the space bar, 
for example, as a rest between notes. 
PLAY, using the SETY command, also 
draws the turtle on the staff. 

Type BEEP PLAY “A to hear Middle 
C. PLAY takes the input character [A] 
and searches for its corresponding 
pitch value (260.7). PLAY passes this 
value to BEEP, which plays the appro- 
priate note. 

Note the relationship between the 
values for Middle C (260.7) and High 
C (521.5) in the PLAY procedure. 
Now, look at the values for the E and 
F tones. The higher note in each pair 
is double the pitch value of the lower 
note. This is always true. BEEP2, the 
next procedure, uses this fact to pro- 
duce interesting results. 

Try BEEP2 a few times and com- 
pare it with BEEP. It uses the second 


sound channel (TOOT 1) to play a 
tone which has half the pitch value 
of the first note. For example, if you 
press the [A] key, BEEP2 plays Middle 
C and the tone one octave below it. 

We use the GET. NOTE procedure 
to check the keyboard and store our 
notes. GET.NOTE passes each note to 
the REMEM procedure, which stores 
the notes in the variable LINE. 

Type [START] to run the program. 
Now, press the [Y] key to start the 
piano. This invokes the START pro- 
cedure. The [C] key calls the CLEAN- 
UP procedure which erases the text 
window and erases all your old tunes 
stored in LINE. If the [R] key is 
pressed, the REPLAY procedure will 
replay the list of notes stored in LINE. 

The procedure REPLAY is really 
tricky. This recursive procedure re- 
moves the top note from LINE, plays 
it, and discards it. Then, it starts again, 
playing the first note on the shortened 
list. REPLAY continues to remove 
notes from the top of LINE, play them 
and discard them until LINE is empty. 

The graphics portions of the pro- 
gram need little comment except 
perhaps for the LOGO names “STAF- 
FHI, “STAFFLO, and “NOAT. Don’t 
forget to type these, too. These vari- 
ables contain lists of numbers which 
tell the computer how to reshape the 
turtles into musical notes. The turtles 
are reshaped in the SETUP procedure 
with the PUTSH command. 

continued on page 19 
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C’mon, 
Cut it out! 


Can $79.95 buy me an Atari 1030 Modem 
and software package? 



Send coupon to: 

ADD-ON Systems • 524 2nd St., San Francisco, CA 94107 


YES! An Atari 1030 Modem guaranteed to 
work with your Atari Computer can be yours— 
all you need is at least 16K and a telephone 
line— you don’t even need a disk 1 

The Atari 1030 Modem is an eas 
to use, high tech, high qual- 
ity modem which auto- 
matically uploads to your 
Atari Computer. 


And. with a disk drive you 


can take advantage of the disk communication 
software (included at no extra cost). This free 
ides introductory subscriptions 
(access to hundreds of free pro- 
grams) and Dow Jones Retrieval Services at 
no additional cost 


Cut it out! Don’t wait! Act now! 
Take advantage of this incredible 
offer— Atari quality at a lower 
price than any other modem! 

NO INTERFACE REQUIRED 


YES! I want this extraordinary communications value! I’m ordering now so I can receive: 

• 1 ATARI 1030 300 baud modem with built in software ■ Free Introductory Time on: Dow Jones, CompuServe- Disk Communications Software 

The suggested retail value is $199.95 MY PRICE IS ONLY $79.95. Send me number of packages at $79.95 per package to: 


Name 


Address 

Please make check payable to ADD-ON Systems. 
Payment enclosed □ check □ money order 
Bill my □ Mastercard □ Visa 


City 

Credit Card Orders Only Call Toll Free 
800 227 1617X133 
800 772 3545 X133 (inside CA) 
California residents add 6 l A% sales tax. 
Add shipping charges of $2.75 per modem. 


State Zip 

Canadian residents please send U.S. dollars. 
Allow 2-4 weeks for delivery. 

Prices subject to change without notice. 
Delivery subject to availability. 


ID# 


Expires 




ANTIC AT THE FIRST 
GEM SEMINAR 

Converting IBM PC software to Atari 

by NAT FRIEDLAND, Antic Editor 


j P^ ntic was the ONLY Atari 
MLmSaL Magazine present at the 
First GEM Software Devel- 
W l^opers Seminar held at 
Monterey, California in February by 
Digital Research, Inc. DRI created the 
“Macintosh-like” GEM operating in- 
terface that is being used for the new 
16-bit Atari ST computers. 

GEM has aroused especially wide 
interest in the computer industry 
because it’s supposed to make it sim- 
ple to convert software between the 
IBM PC and clones, the Macintosh, 
the Atari ST and any other computer 
that GEM licenses a version for. 

Some of Atari’s top technical execu- 
tives were on hand, debuting a work- 
ing ST with a preliminary version of 
Atari GEM burned into ROM. 

Antic was told that Atari still con- 
siders itself on schedule for bringing 
the first production ST computers 
onto the market in April. Full ST pro- 
duction capacity won’t be reached 
until June. The 10-15 megabyte hard 
disk for the ST will show up in the 
summer. 


ATARI CAD/CAM? 

Remember the 32-bit Atari we re- 
ported Jack Tramiel talking about at 
his November press conference? Well, 
apparently it is well along in develop- 
ment. Atari still hopes to meet 
Tramiel’s goal of unveiling the 
machine at the April electronics fair 
in Hanover, Germany. 


Every time Atari engineers talked 
about the 32-bit computer in Mon- 
terey, delighted smiles appeared on 
their faces. The computer was de- 
scribed to Antic as a “VAX minicom- 
puter on a chip” and a “$40,000 CAD/ 
CAM computer graphics workstation 
that will sell for under $2,000.” 

LEARNING ABOUT GEM 

As for the GEM Seminar itself, the 
$800 workshop was highly technical 
and directed at professional con- 
sumer-software programmers who 
were thoroughly experienced with 
the C language or with Macintosh 
window program development. 

The Seminar sessions were taken 
up with highly detailed discussions of 
GEM development nuts and bolts 
such as the strict interfacing pro- 
cedures which are supposed to make 
“porting” GEM-based programs be- 
tween different computers a routine 
one-day process. 

Access to GEM windows, debug- 
ging, and correct embedding of trans- 
fer hooks were among the other tech- 
nical topics discussed. All attendees 
were given the two-volume GEM 
Toolkit documentation. DRI’s recom- 
mended professional development 
language was Lattice C, which costs 
around $500. 

It should be noted that the Seminar 
was specifically dealing with the just- 
completed IBM PC version of GEM. 
Six-disk beta test editions of GEM 


were being sold to developers by DRI 
for $500. The GEM Library software 
of prepared graphics routines cost 
extra. 

The Atari version of GEM was not 
yet ready for beta testing at the time 
of the Seminar. 

WETMORE SUMS UP 

Russ Wetmore, author of Homepak 
and Preppie as well as other major 
Atari programs, flew in from his Flor- 
ida homebase to attend the seminar 
and then stayed on to see the Mac- 
World Show in San Francisco. 

He spent time at Antic during this 
period and shared with us the view- 
points of a highly experienced Atari 
professional programmer. 

“I think the developers at the 
Seminar fell into two groups. One 
group is totally sold on the GEM goal 
of making a lot of different computers 
compatible with each other,” said 
Wetmore. “And for now they are will- 
ing to overlook any unanswered ques- 
tions that came up during the ses- 
sions. The second group is taking 
more of a wait-and-see attitude.” 

Wetmore expresses some doubt 
that GEM software will port between 
different computers as easily as DRI 
says it will. He also feels that GEM 
lacks certain built-in features found in 
the Macintosh interface — such as a 
text editor — which will make it more 

continued on page 19 
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Srt >atf 


Jo '»t he 90n 


Here are just a few of many screens. 


WISDOM ROUND 1 

PLftYER y 


c han en 


THE CHALLENGE. 

Over 2000 stimulating trivia/fact questions will send 
you rummaging through your personal memory banks. 
Answer correctly and advance in your quest while 
adding more gold to your treasure. Fail and you lose 
ground. 


THE ACTION. 

You may have to face and battle a ferocious dragon. 
If you prevail, the dragon's cache of gold will be added 
to your treasure. If you fail, your journey will be slowed 
while you heal your wounds. 


THE STRATEGY 

Each questing party consists of three characters, a 
Knight, Prince and Page. Each has distinctly different 
physical characteristics, and all must complete the 
Quest. You must decide when to send them on to the 
next challenge. 


Atari is a trademark of Atari, Inc. 
©1984 — Royal Software 


This 

exciting new 
concept in computer 
entertainment will keep you 
and your friends involved for hours and 
hours. This is probably the best party-game 
ever developed, and new question disks will be available. 

Optional: Utility disk which allows you to create unlimited trivia questions 
and answers for educational or entertainment. The utility disk also includes 
over 1000 additional questions. Utility disk $24.95. 


&oi/al 
&qftivaieJ 


“Software fit for a king!” 

2160 W. 11th • Eugene, OR 97402 • (503) 683-5361 

Ask for Trivia Quest at your favorite Atari Computer Store 
or order directly from Royal Software. Use your Master- 
Card, Visa, American Express, or send check or Money 
Order including $2.90 shipping and handling. 







T ™he Atari’s graphics capabili- 
ties are the best you can get for 
anywhere near the price. The 
problem most of us run into is 
that our pictures LOOK as if we did 
them ourselves. 

This doesn’t need to be the case, 
however. Pixel Scanner will perform 
automatic computer enhancement of 
a picture by using a process called pix- 
el averaging, which gives a depth and 
fullness to an otherwise flat picture. 

And that isn’t all. By tinkering with 
this program a little, you can simulate 
the sophisticated computer enhance- 
ments used by NASA to bring out 
small details in satellite photos. 

To get started, type in Listing 1, 
check it with TYPO II, and SAVE a 
copy. 

The program includes a demonstra- 
tion picture of a stick figure bird in 
Graphics 9 (lines 200-270), and the 
pixel averaging routine (lines 100-161). 
The picture was made using simple 
PLOT and DRAWTO commands; if 
you’re enterprising, you can create 
your own picture by changing these 
commands in the demonstration 
picture. 

The stick figure is drawn at the top 
half of the screen, leaving room for 
the enhanced version at the bottom. 

HOW IT WORKS 

After the picture is drawn, the pro- 
gram looks at each pixel and its sur- 
rounding pixels, then places their 


This BASIC program introduces you 
to pixel averaging— -an advanced 
graphics technique similar to the 
method NASA uses for enhancing 
satellite photo details. Pixel Scan ner 
ivorks on all Atari computers of any 
mem ory size. Disk or cassette. 

values into variables. This is done 
in lines 121-129 by means of the 
LOCATE command, which positions 
the cursor at a specified x,y coordinate 
on the screen and assigns the value 
of the byte for that data to a specified 
variable. 

The format for a LOCATE com- 
mand is: 

LOCATE (x-coord),(y-coord), 
(variable) 

The program then adds the values 
of all the variables together, and 
divides by the number of pixels sam- 

WHAT'S A PIXEL? 

The word “pixel” is computer jar- 
gon for ‘‘picture element.” It stands 
for the smallest controllable element 
of a screen display. 

Naturally, pixel size is determined 
by computer and video resolution 
limits, as well as by graphics mode 
selection. In Atari Graphics 8 mode, 
for example, a pixel is one scan line 
high by one-half color clock wide — 
which essentially matches the reso- 
lution of a home television receiver. 


pled (line 131). Using that average 
value, it then re-colors the center pix- 
el, to make it blend more smoothly 
with its surroundings (line 141). 

PIXEL SEPARATING 

The Pixel Scanner demo program 
blends pixels. It could just as easily 
widen the difference between 
pixels — as is done in satellite photos 
to distinguish between extremely 
small variations. 

To do this, change the way the 
value of K is figured. In line 131, K 
is figured as the average of all the 
variables. It would be just as easy to 
make K vary by, say, 4 times the 
average, if you change the command 
COLOR K (line 141) into COLOR K*4. 

With a little experimentation, you 
will begin to find a wide variety of 
things to do with this routine. Other 
effects can be achieved by sampling 
only certain adjacent pixels and not 
others. 

You might also try changing to 
Graphics 11 (line 201). You’ll be sur- 
prised at the beautiful blends of col- 
ors which are produced. 


Lyn Buchanan is a civilian program- 
mer at Fort Meade, Maryland. He is 
also a programming and systems 
analysis instructor 


Listing on page 58 
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MORE REAL POWER FOR YOUR ATARI 


DESK SET $39.00 (HOME WRITER $19.00 SMARTDOS $39.00 


Complete Desk Package 

CALENDAR 

CALENDAR is a perpetual calendar, an appointment 
calendar and also a card file. The perpetual calendar 
is a calendar of every month, past, present or future. 
The appointment calendar allows up to 15 entries to 
be made each day. 

CARD FILE 

The card file is a mail list program which holds up to 
200 addresses. The printing format of card file in- 
cludes continuous lists, labels or envelopes. Files 
can be printed; all the files from one file number to 
another; by zip code; by state or by selected files. 
LETTER WRITER 

LETTER WRITER is a preformatted letter writing 
program. LETTER WRITER can be used for any 
number of applications involving entering, editing 
and printing text. LETTER WRITER is designed to 
be easy to use and does not require extensive train- 
ing. While LETTER WRITER is not a full word pro- 
cessing system, it performs 90% of the functions 
used by harder to use and more expensive word pro- 
cessors. DESK SET also contains a program that al- 
lows you to combine Card File and Letter Writer for 
interaction. 

FINANCIAL CALCULATOR 

FINANCIAL CALCULATOR answers virtually any 
questions concerning the cost of money, loans, and 
interest earned on savings, loans and investments. 
Plus, this program will give a complete interest 
earned table and amortization table. This program is 
a must for anyone serious about money. 

FORECASTER 

Forecast future events based on past information. 
Forecast profits, costs, sales trends, prices test 
scores, virtually anything. Edit, save on disk and test 
various elements to determine the outcome. 
FORECASTER is a powerful "what if" program - a 
must for business. 

Two drive - double density - 48K required. 


FILING SYSTEM $19. 


FILING SYSTEM allows the user to confi- 
gure any type of data file imaginable. Ex- 
amples are recipe cards, mail lists, remin- 
ders for birthdays, check-ups, etc..., com- 
plete inventories (home and business), per- 
sonnel files, customer call-ups, price list, 
and much, much more. You may retrieve 
data using any field or combination of 
fields. Files also may be saved, sorted, and 
printed in a preset format that you confi- 
gure. Uses either a single or a double 
density disk drive. 24K minimum. 


STAT-PLUS $29. 


STAT PLUS is the most powerful statistic 
tool we have seen. Run sample space, 
mean, variance and standard deviation. Do 
probabilities using binomial, poisson or nor- 
mal distribution. Also, do students’ t-test, 
Mann-Whitney U test and Chi Square. Do 
linear regressions; may use 1-12 indepen- 
dent variables, interact a sample from one 
module to another, edit, rank and print out. 
24K min. 


The HOME WRITER is an easy to use 
word processor which includes a carefully 
selected group of functions that are at your 
disposal immediately. The functions are as 
follows: SAVE, LOAD, REVIEW, PRINT- 
OUT, or EDIT. All the popular editting fea- 
tures available on the ATARI Home Com- 
puter in direct programming mode are also 
available with HOME WRITER. You may 
also search for phrases or strings, load off 
of either disk or cassette, and number 
pages automatically. Unlike other small 
word processing programs, HOME WRIT- 
ER does not wrap-around when at the end 
of a line. Right and left margin justification 
is available for any type parallel printer. 
48K. 



This disk contains both LETTER WRITER 
and MASTER LIST plus the necessary pro- 
gram that allows for combining the two pro- 
grams for interaction. Call a file off disk, 
type a letter and (with the right printer) type 
on envelope, or just run one letter after 
another. All of the powerful features of both 
LETTER WRITER and MASTER LIST plus 
the ability to use them together. 

Includes 35 pre-typed letters. 


■ SMARTDOS is 100% density smart. 
SMARTDOS will sense the density of 
each disk in use and automatically recon- 
figure the entire system to that density. 

■ SMARTDOS does not require that a “sys- 
tem disk" has to remain in the drive, or be 
continually inserted and removed in order 
to use the DUP.SYS commands. 

■ With SMARTDOS you may Copy with 
query, (eliminates specifying each item 
individually). 

• Counter screens - which keeps the user 
informed as to what the system is doing 
and where in the task the system is. 

• Disk testing for bad or unusual sectors 
that may be corrected. 

■ RESIDUP feature allows simple yet pow- 
erful full time availability of DUP.SYS 
commands while leaving your program 
intact and ready to RUN. 

> Minimum keystrokes for maximum power, 
e.g. a disk directory is done by pressing 
only one key - the drive number (great 
for filesearches, and “ = " may be used to 
replace *.*. 

• The ability to run from 1 to 9 autorun files 
sequentially. 

• Built in disk drive speed check. 

• SMARTDOS is only 34 single density 
sectors long and works with all Atari com- 
puters with a minimum of 24K RAM. 


BILLING/INVENTORY $49.00 


BILLING allows you to do invoices, posts to 
account cards, deductions from inventory 
and payments. There are provisions for 
shipping, discounts, no charge items and 
tax. BILLING also allows maintenance for 
up to 500 customer files, and printing of the 
daily total of billings. A flowchart is given to 
show the step-by-step direction that the 
program takes. Allows for up to 300 inven- 
tory items. 48K. 


ACCESSORIES I DEMONS DUNGEON $19.00 


Disk Doubler 

$14.00 

5' I/O Cable 

$12.50 

1 ' I/O Cable 

$ 8.50 

Transformer 

$18.50 

IBX 10 SS/DD Disks 
w / plastic box 

$14.50 

C-5 Data Cassette w/box 

$ 2.49 

Disk Fix and Cleaning Kit 

$29.00 


Queen Isidore's crown was stolen by the 
Demons that live in the deep terrifying dun- 
geon. If the crown is not recovered the 
magic that protects her and the kingdom 
will vanish. Others have tried and died. 
Whoever recovers the crown and saves the 
kingdom will win the hand of the princess 
llena and the Kingdom. 


THE PROGRAMMERS WORKSHOP 

24686 REDLANDS BLVD. • SAN BERNARDINO, CA 92406 
OUTSIDE OF CALIFORNIA (800) 228-6821 
CALIFORNIA (714) 796-6821 


TO ORDER: VISA/MASTERCARD, Check or Money 
Order accepted. If charge, please Include expiration 
date. Shipping and Handling - Software $1.50 - Disk 
Drives $10.00. California residents add sales tax. 
Phone or mail. 













Atari 

in 

Lights 

Theater 
lighting designer’s 
Atari CAD. 


by MICHAEL CIRAOLO, 
Antic Associate Editor 

■ ames Brentano is the stage lighting designer and 

■ lecturer for the Drama Department of U.C. 

J Berkeley. He has also been a dedicated Atari 

hacker since he bought his 800 back in the days 
when it cost $800. 

When you think about it, designing the lighting for a 
theatrical production is a highly information-intensive 
task. You have to combine dozens of color filters, lights, 
cables and dimmers in order to get the job done. 

“A typical show will require 150-200 lights. For each 
light you must keep track of the following — name or label, 
any one of several hundred colors, circuit which plugs 
the unit into the control board, a dimmer switch and stage 
focus spot where the light is aimed. Also each light unit 
will have different level settings for up to 200 cues,” 
Brentano said. 

Designing the lighting for a show traditionally requires 
extensive drafting of diagrams and long lists of each light’s 
location, focus and so on. For each show, lights, cables 
and other material also have to be ordered — more 
paperwork. 

Brentano now uses his Atari to handle the entire pro- 
cess. He wrote a BASIC routine to draw the lighting 
characters in Graphic 8, and uses Graphics Master soft- 
ware to produce a design layout template. 

He also uses SynFile + to keep track of lighting infor- 
mation which can be sorted — by focus, type of light, etc. 


ANTIC, The Atari Resource 



COMPUTER AIDED DESIGN 

Brentano isn’t content to simply turn 
the paperwork over to his Atari. He’s 
planning to unite his lighting pro- 
grams and utilities in one system, a 
computer aided design (CAD) pac- 
kage for the Atari. 

“Nobody has yet developed a sys- 
tem where you’re simultaneously 
hooked into the stage cues and all the 
lighting unit information,” Brentano 
said. 

“For the price of two IBM graphics 
boards and a whistle, I can produce 
a package with an Atari, dot-matrix 
printer, disk drives and the software 
to do all the CAD lighting work,” 
Brentano figured. All for around 
$ 1 , 000 . 

“Ideally you’d have onscreen a pic- 
ture of the lighting diagram, and you’d 
use a light pen or mouse to circle and 
call up all the information on given 
unit.” 

After producing a package to do 
CAD lighting design, the next step is 
direct computer control of the light- 
ing board. “The technology of light 
board computers is primitive — the 
interface to all the knobs and controls 
is expensive,” the designer explained. 

The light board Brentano uses at 
U.C. Berkeley costs $37,000, not in- 
cluding the dimmers. “That’s ridicu- 
lous when an Atari costs $120,” Bren- 
tano said. 

“LET’S MAKE A SHOW’’ 

“It’s surprising how many stagehands 


own Ataris — they like to play games. 
And we all play this game together, 
“Let’s go make a show”. Backstage 
crafts simply offer bigger and more 
expensive toys.” 

Brentano maintains that the Atari 
appeals to stagehands because of the 
machine’s game tradition and because 
it’s not hard to get inside the com- 
puter and play with it. 

“You can do a lot of this design 
with the Macintosh and File Vision,” 
Brentano admitted. File Vision is a 
visual database which lets you design 
icons that can be moved around the 
screen. Each icon also represents 
detailed information, such as the 
focus, location and type of each light. 

“But Apple has a certain snobbish- 
ness I object to,” said Brentano, who 


believes that the Atari is the best 8-bit 
machine on the market. “Pong is the 
greatest thing since sliced bread.” 

LIGHTING BOARD 

Brentano’s dedication to the Atari has 
made it the computer of choice for 
a theatrical bulletin board he’s 
starting. 

Based on an Atari 800, an MPP 
1000C modem and two disk drives, 
Brentano’s bulletin board will cater to 
the theatrical lighting community. It 
will have classified ads for jobs, equip- 
ment and so on. The board will also 
feature electronic mail, hints and tips 
for lighting designers, product reviews 
and comments. 

“Eventually, I want to be able to 
dump a show’s files to the bulletin 
board, so rental companies can log 
on, look at the file, and give me a 
price.” 

“A problem with theater is that we 
spend $10-20,000 per show. Any way 
to share information saves money,” 
Brentano said. “There’s a need for a 
clearinghouse of information.” 

Brentano’s board will be the only 
Atari theater BBS in the country— and 
only the second theater board of any 
kind. It is called JCN (James’ Com- 
puter Network). The phone number 
is (415) 562-3364. 

“JCN— it’s like HAL in ‘2001.’ HAL 
was from one letter before IBM. JCN 
is one letter after.” 

□ 



The map and key above are used to tell theater electricians where to hang certain lights, what 
kinds of lights to use, and what focus each light requires. 
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You have already 
made your 
first mistake! 

You thought that cassette recorder 
would handle your storage needs. 

WRONG! 


Don't make 
another one ! 

You think you need a disk drive 
to solve your storage problems. 

WRONG! 


You need 2 
disk drives! 

Any serious application practically 
demands at least 2 drives. 

Word Processing 
5preadsheet 
Data Base Management 
Mailing List 5 oftware 

All of these are made more 
powerful and, at the same time, 
easier to use if you have two disk 
drives. 

5o now it will cost twice as much, 
right? 

WRONG! 

You need an Astra single or double 
density dual disk drive. Two drives 
in one low-priced unit. 

Astra Systems now has 
two new models for your 
ATARI: 


ASTRA 2001 

Single or Double Density 
Disk Drive 

■ Advanced Circuitry 

■ Rotary Doors 

■ Direct Drive Motors 

■ 360 kbytes 

■ Reliable, Quiet Operation 

■ Fast Read/Write 

■ Easy Data Read 

ASTRA "BIG D" 

■ Double Sided Drives 

■ Single or Double Density 

■ Direct Drive Motors 

■ 720 Kbytes 

ALL DRIVES FURhlSFIED WITH 
5MARTD05 OR MYDOS* 

•DOUBLE SIDED DRIVES 

For nearest dealer or distributor call 

(714) 549-2141 

*flSTRfl SYSTEMS, INC. 

2500 South Fairview, Unit L 
Santa Ana, California 92704 



ANTIC AT THE FIRST GEM SEMINAR 

continued from page 12 

difficult for professional programmers 
to work with. 

Despite this, Wetmore was positive 
enough about GEM that he bought the 
Seminar disks and intends to invest 
over 84,500 for a souped-up IBM PC 
to run Lattice C. “But right now any 
GEM programs I publish will just be 
for the Atari,” he said, “because it’s 
the only computer that a developer 
won’t be charged royalties for by DRI 
when the software comes out.” Q 


TURTLE PIANO 

continued from page 10 

As stated earlier, this program is 
really pretty simple. Readers are en- 
couraged to make it more special. 
With a little tinkering, Turtle Piano 
could flash different colors with each 
note, extend for another octave or 
two, or include sharps and flats. The 
basic structure can accommodate all 
these changes and more. The only 
rule is to share your ideas by sending 
them to Antic. 

Craig McBain is a third grade 
teacher in Mt. Clemens, Michigan. 
His wife wishes that Atari Logo had 
never been invented. 

Listing on page 74 Q 


THE #1 SYSOP 

continued from page 8 

from the Japanese game Go, and 
SIG *Atari has an oriental sound,” said 
Luks, pronouncing the name quickly 
and sibilantly, as one monosyllabic 
word. 

MILUON-DOLLAR SIGS 

SIGs are now the second or third larg- 
est moneymaker for CompuServe, 
bringing in millions of dollars a year, 
Luks said. And he has a well-defined 
niche in that enterprise. 

Luks, the “Godfather of SIG*Atari”, 


now works with a CompuServe sysop 
school and a test SIG where new SIG 
software is beta tested. He also helped 
launch the IBM SIG and works eight 
other boards besides SIG "Atari — as 
well as being OnLine Editor of the 
Antic CompuServe Edition. 

Of course, all that takes a lot of time, 
“60 to 70 hours a week,” Luks figured. 
As we’ve found out at Antic when we 
try to get in touch with Luks, the 
phone at his Greenwich Village apart- 
ment routinely gives off a busy signal 
till after 3 a.m. 

And during regular working hours, 
Luks is a freelance computer consul- 
tant to a major Wall Street brokerage 
firm. 

“Nowhere else can you find a more 
knowledgable group on the Atari 
world than on SIG "Atari,” Luks said. 
SIG *Atari members gave constructive 
input to Synapse Software during its 
development of the Syn Series. More 
recently they’ve done the same for 
Batteries Included’s HomePak. 

“Our users decide what service 
they get and dictate policy,” Luks said. 
However, Luks insists that users main- 
tain a sense of decorum on SIG*Atari 
and that the board not become a 
haven for pirates. 

FREE ACCESS 

Luks is committed to bringing the SIG 
to as many Atari users as possible. If 
a large users group has never been in 
SIG "Atari before, Luks said he would 
try to arrange free access to the SIG 
for a weekend so the group could 
discover the magic for themselves. 

“If we could get a new machine 
from Atari, we could have 50-60 
public domain programs for the ST on 
the SIG "Atari, ” Luks claimed. Nor 
does it appear an idle boast. “On the 
Macintosh SIG, we had 50 programs 
when there were only five for sale in 
the stores.” 

“All they have to do is ship it. We’ll 
do the rest,” Luks promised. 

Luks sees his demanding work with 
CompuServe as an investment in the 
future. “We’re shaping the technology. 
Also I want to be able to live any- 
where, to be geographically indepen- 
dent and able to work over the 
phone.” □ 



YOUR 

SOFTWARE 

RIGHTS 


1. You, the Atari owner, have the right to expect 
a simple, easy-to-use filing system. 

2. You have the right to see your Atari perform 
to its fullest capabilities— using advanced 
graphics, color and sound. 

3. You have the right to expect home productivity 
software that’s easy, convenient and natural. 

AND YOU HAVE THE RIGHT TO 
YOUR SATISFACTION GUARAN- 
TEED OR YOUR MONEY BACK. 


I 


We hear you. That’s why 
Antic is presenting you 
with Sparky Starks and 
Russ Wetmore’s 


I 



For $24.95, HomeCard gives you an electronic fil- 
ing box. Intelligent Rolodex® with automatic tone 
or pulse dialing of up to 234 telephone numbers. 
Full search ability with the speed of a RAMDISK. 
And the natural convenience of index cards. 



By the author of HomePak. 

HomeCard allows you to: 

• chain any number of cards together 

• store up to 234 cards in each box (one disk) 

• create up to 8 major categories and effortlessly 
search any combination of those groups 

• use any 1030 or Hayes-compatible modem 
or T.V. speaker to autodial 

Ideal for home and 
student applications. 

Arcade #RW100 $24.95+shipping & handling 

ORDER NOW reference #RW100 
Use the order form in the Arcade catalog. 
Credit card orders 
call 800-227-1617 (ext. 133) 
in Calif. 800-772-3545 (ext. 133) 

Exclusively from Antic. 

Requires 48K and disk drive. 
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ATARI® 820 or 822 PRINTER - $39.00 

With Cable and Paper Everything you Need! 


DISKDRIVES 

New Special Edition 
$1 99.00 or $349.00 w/Happy 

Reconditioned ATARI® 810 
$1 49.00 or $299.00 w/Happy 


410 PROGRAM RECORDERS 
CASSETTE • $29.00 

• Star Raiders «Missle Command 

• Touch Typing .TimeWise 

• States & Capitals .2 More Games 

All for $19.95 


• Happy® Compatible 
.100% Software Compatible 
. 1 20 Day Warranty 
. Most Durable & Serviceable 



800 Computer Boards 
Complete & Tested 

• Mother Board .CPU Board 

. Power Board • Ram Board 

• ROM Board 

All for $39.00 

Numeric Keypads w/driver $1 9.95 

Disks from $1 .00 each 

LJK® LETTER PERFECT or DATA PERFECT 


MADE FROM ATARI® 810 BOARDS 

AND TANDON® MECHANISMS 

San Jose Computer 

1844 Almaden, Rd. Unit E 

San Jose, CA 95125 

Everything for the ATARI Systems to Parts 

(408) 723-2025 


■ 



YOU CAN T TELL 
A DISK DRIVE 
BY ITS COVER!! 



WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 

HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS — Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM, 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95, for a limited time only! 
Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add $10.00 and send an international money order payable through a 
U.S. A. bank. California orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear. Cash COD available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT. 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 
now throughout the world, call for the number of the dealer closest to you. ATARI is a registered trademark of Atari Computer Inc. 


HAPPY COMPUTERS, INC. • P. O. Box 1268 • Morgan Hill, California 95037 


(408) 779-3830 




Let your joystick select program hues! 

by JOHN FELTON 


Take the tedium out of program col- 
or selection with this joystick-driven 
BASIC utility. Color Palette runs on 
all Atari computers of any memory 
size. Disk or cassette. 


\M m hen the time comes to 
jm select colors for your 
w# new program, it’s hard 
▼ W to choose among all the 
Atari’s 128 colors and multiple 
luminances — if you can’t convenient- 
ly compare similar shades. Until now, 
it was a tedious process to find the 
perfect green for your slime monsters, 
or just the right red for the sky over 
Barsoom. You might use SETCOLOR 
in a program, run it, look at it, break 
it, adjust it and start over again. 


USING PALETTE 

Color Palette gives you a better way 
to use the best home graphics com- 
puter on the market. 

Type in Listing 1, check it with 
TYPO II, SAVE a copy, and RUN the 
program. You’ll be looking at a 
joystick-driven utility for color selec- 
tion. Listing 2 is the source code for 
the assembly language routines used 
in the BASIC program. You don’t need 
to type it in. 

The palette’s screen is divided into 
two windows. In the top, you’ll see 
12 patches of color, each with its hue 
and luminance numbers and a color 
register value. The lower right corner 
is the background color. 

The bottom half modifies the col- 
or of patches in the top half. Put the 
cursor over the patch you wish to 


modify and press the joystick button. 
You’ll now be able to change colors 
by moving the stick up and down, 
and change luminance by moving the 
stick from side to side. Press the trig- 
ger to set that color and move on. To 
see your values, watch the X in the 
lower window. 

That’s all that there is to it. You 
might note that the top four patches 
are initialized to the Atari default col- 
ors. It is amazing how many programs 
use these four colors just because it’s 
easier than looking for better ones. 
Well, no more. 

A three-year veteran of the Atari, 
John Felton is a computer science 
major at Cal Poly in San Lids 
Obispo, California. 

Listing on page 64 H 
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COLOR the COVER- 
=CONTEST 


By JACK POWELL and MICHAEL CIRAOLO 



When we invited submissions for 
our Color the Cover Contest, we 
didn’t really expect a winner with 
the dilisence, creativity and . . . uh 
. . . compulsiveness of Paul Sedge- 
wick. His adaptation of the January 
1985 Antic cover was artistically a 
match for any other entry— but it 
was also a mind-boggling techno- 
logical tour de force. 

The 23-year-old electrical engi- 
neer from Northridge, California 
spends his days producing delicate 
military microwave machines. And 
he put in over 1 00 hours re-creating 
Antic’s cover with redefined 
characters on two scrolling screens. 

Paul decided that the black and 
white Antic January cover needed 
at least five colors, if not more. He 
also didn’t think one video screen 
was large enough. 

Wanting the highest resolution 
possible, Paul chose ANTIC Mode 4, 
the only mode which offers both 
high resolution and five colors. 
(Mode 4 is a five-color text mode, 
counting the background.) 

He then photocopied the cover, 
enlarged it and graphed it on a grid 
approximately 40 squares wide and 
50 down— each block representing 
one mode 4 character. 

Next he graphed the cover in even 
finer detail, dividing each block in- 
to a 4x8 pixel matrix. 


34 CHARACTER SETS 

Having done all this preliminary 
paperwork, Paul finally reached for 
his own trusty character set editor. 
Using the editor, Paul redefined 
each character block to match the 
cover. However, there are only 256 
characters in a character set— just 
enough to draw three screen rows. 

Rather than re-use characters for 
different portions of the picture, 
Paul used display list interrupts (DU) 
to actually change character sets 
while the screen was being drawn. 
After each three rows of characters 
on screen, a different set was 
pointed to in memory. 

Paul decided that five colors real- 
ly weren't sufficient, so he used a 
vertical blank interrupt (VBI) to draw 
the picture twice, thus creating ex- 
tra colors by superimposing the 
hues. Two overlapping hues of the 
same luminence created a third col- 
or; two hues of different luminences 
created a vibrating, flickering effect. 

The VBI was also used for vertical 
fine scrolling between two screens, 
which meant the display list instruc- 
tions had to be continually re- 
figured. 

What began as a simple Color the 
Cover Contest entry ended in a four- 
screen phantasmagoria. The VBI al- 
ternates between two screens, and 
the vertical scroll switches between 
two more. After 100 hours of work, 


Paul had created the necessary 34 
complete character sets. With an ac- 
companying assembly language 
program, the entire binary load file 
occupied 316 disk sectors! 

...AND RUNNERS-UP 

Nearly 150 readers mailed in entries 
to the contest. Just about half the 
entries used the KoalaPad or Atari 
Touch Tablet with accompanying 
Micro Illustrator (AtariArtist) soft- 
ware. Interestingly the second most 
used computer graphics tool was 
"Price’s Picture Painter" the power- 
ful program from Antic’s September, 
1984 issue. 

Tim O’Connell, of Mastic Beach, New 
York used a KoalaPad to produce his 
strong head-and-shoulders close-up 
of Utility Man. Our distinguished 
panel of judges (Antic editorial and 
art departments) particularly liked 
the way this U-Man seemed to be 
posing for a hero portrait. 

Alfred Gomez of Las Cruces, New 
Mexico spent several sleepless 
nights to produce his entry. Gomez 
demonstrated his good taste by de- 
picting a miniature Antic magazine 
hanging from Utility Man's belt, al- 
though this is too small to see in our 
screen shot. Our judges were also 
pleased with the excellent use of 
contrast and color. His successful ef- 


22 


ANTIC, The Atari Resource 


♦ ♦ ♦ 


and the winner is 


forts “burned my rendition into the 
retinas of my eyes.” He was the only 
entrant to use the Fun with Art 
cartridge. 

Montreal’s Gaston Aladin used the 
Atari Touch Tablet and his own soft- 
ware to produce his highly impres- 
sionistic entry. Aladin’s work 
demonstrates interesting, complex 
background textures captured in a 
fluid sense of movement. 

Nick Hirner was “inspired to go to 
the limit" of his patience in re- 
creating our cover. This programmer 
from Mountain View, California used 
AtariArtist cartridge with Atari 
Touch Tablet to produce a Utility 
Man that closely resembled our 
cover. Turner displayed well- 
balanced colors, a good sense of 
proportions, and well defined 
shapes. 

When she read about the Color the 
Cover Contest, Marta Taylor ran out 
and bought a KoalaPad to produce 
her entry, one of the more abstract 
renditions we saw. Taylor, who hails 
from Douglasville, Georgia, de- 
picted Utility Man surrounded by a 
fanciful collection of balloons. 
While not a true copy of the cover, 
the entry contains unique imagina- 
tion and a charming, simplistic 

innoCCnCC. continued on page 24 


Paul Sedgewick 
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Runner-up winners are not pre- 
sented in any particular order on 
these pages. Color The Cover Con- 
test first prize is an Indus GT disk 
drive. Runner-ups receive their 
choice of any single item in the Antic 
Arcade Catalog. 

Antic Disk subscribers: You will 
find the winning contest entry as a 
bonus on your August disk NEXT 
month. It was too large to fit any- 
where on the current issue's two- 
sided disk. 



Gaston Aladin 


runners-up ♦ . ♦ 



Alfred Gomez 


Tim O’Connell 



Nick Turner 




Marta Taylor 
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SPRINT SHOP " 9 * * * * * * * * 18 



WELL WORTH THE WAIT! 


by JACK POWELL, Antic Technical Editor 


9 a up. Looks like the dry spell 
for Atari software has finally 
ended. At last, the big guns are 

M coming out: EPYX is marketing 

the fabulous Lucasfilm games, Paper- 

Clip is on the way, and Alternate 

Realities will finally become a real- 

ity — courtesy of Datasoft. 

Then just the other day a bright 

yellow box came in from Broder- 
bund. The Atari edition of Print 
Shop had finally arrived! 

Print Shop is a graphics printing 
program that Apple owners have been 
enjoying for quite a while. It’s current- 
ly Broderbund’s hottest selling item, 
and the reason why is easy to see. 
From the bright yellow packaging to 
the foolproof programming, Print 
Shop is so darn friendly you feel like 
Bambi has just toddled into your 
Atari. 

When the package arrived, we tore 
off the wrapping and booted the disk. 
The very first page of the reference 


manual said to ignore the documen- 
tation, start up the program and just 
follow the prompts. Within minutes, 
the Antic offices were littered with 
gaily decorated printer paper. 

If you’ve always dreamed of being 
an art director, Print Shop is exactly 
what you’ve been waiting for. You’ll 
be cranking out flashy greeting cards, 
stationery, banners and signs, featur- 
ing clever graphics and a variety of 
different type-styles. You can decorate 
with ready-made graphics icons that 
are supplied, or design your own. (My 
own “Opus The Penguin” has been 
very well received.) The results are 
remarkably professional. 

The program is entirely menu- 
driven and leads the user easily 
through the options. In the tradition 
of all Broderbund’s Apple-oriented 
programs, there is an almost complete 
lack of sound, but this is essentially 
a utility so it’s not too bothersome. 

Before you rush out and buy Print 


Shop, make sure you have a dot- 
matrix printer capable of graphics. No 
matter how nice the program, it won’t 
work on your letter-quality Atari 1027 
printer. Print Shop handles most 
graphics printers. They’re all listed on 
the box. If in doubt, call Broderbund. 

As fun as it is, Print Shop has its 
limitations. You’ve eight type-fonts to 
choose from and there’s no way to de- 
sign your own. The disk comes with 
60 icons or graphic designs. And you 
may also design your own using the 
Print Shop graphics editor, but as 
usual with multiple utility packages, 
the graphics editor is a crude joy- 
stick/Koala Pad pixel editor which 
does not allow for patterned fills or 
other desirable sophistications. 

It would certainly be nice if we 
could use one of the many versions 
of Micro Illustrator to design our 
icons, but this is not the case. And, 
since the disk files have been hidden, 

continued on pase 28 
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FANTASTIC PRINTER 
$ 24 ,s SALE!! $ 24 95 

Commodore 64 — VIC 20 — A tari 


it 40 And 80 Column Printers * Up To 100 Characters Per Second it Full Graphics Capability 
it Upper And Lower Case it Advanced Thermal Technology For Quiet Operation 



3100 Alphacom 42-80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List $99.00. 
Sale $24.95. 


40 Column Extra Paper 

3103 25 Meter Rolls Blue 

3104 40 Meter Rolls Blue 

3105 25 Meter Rolls Black (1 per pkg.) 

3106 25 Meter Rolls Blue (2 per pkg.) 

3107 25 Meter Rolls Black (2 per pkg.) 


LIST SALE 
$9.95 $3.00 

$16.95 $3.95 

$12.95 $3.95 

$19.95 $5.95 

$19.95 $5.95 


3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics as well as Atari or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List $199.00. Sale $39.95. 


80 Column Extra Paper 

31 53 40 Meter Rolls Blue 

3154 40 Meter Rolls Black 

31 55 25 Meter Rolls Blue (2 per pkg.) 

31 56 25 Meter Rolls Black (2 per pkg.) 


LIST SALE 
$14.95 $3.95 

$19.95 $4.95 

$19.95 $7.95 

$19.95 $8.95 



3101 Intelligent Commodore Interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse characters. 
(Specify 40 or 80 Column) List $59.95. 

40 Column Sale $9.95. 80 Column Sale $14.95. 


3102 Intelligent Atari Interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) List $59.95. 

40 Column Sale $9.95. 80 Column Sale $14.95. 


Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 

Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days for delivery, 2 to 7 days for phone orders. 1 day express mail ! 
VISA — MASTER CARD — C.O.D. No C.O.D. to Canada, APO-FPO 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 


Dept. ANT/6 



Ji Lowest Price In The USA ! 

aw Computer System Sale 

• Students • Word Processing • Home • Business 



LOOK AT ALL YOU GET FOR ONLY 


$449 

SYSTEM PRICE 


©Atari 800XL 64K Computer 
©Atari 1050 127K Disk Drive 
©Atari 1027 Letter Quality 20 CPS Printer 
Atari Writer Word Processer 
Atari BASIC Tutorial Manual 


INDIVIDUAL 

LIST PRICE SALE PRICE 
$ 299.00 $ 109 °° 

399.00 189 °° 

399.00 199 00 

79.95 39 " 

16.95 12 " 


SAVE $100 

All 5 ONLY 

$ 449 °° 

SYSTEM 
SALE PRICE 


All connecting cables & T.V. interface included. 
. Monitors sold separetly. 


TOTALS 


$1193.90 $549.90 


AAONITOR OPTIONS: 

List 

Sale 

Add $9.95 for 

1 2" Hi Resolution Green or Amber Screen 

W 13" Hi Resolution Color 

$199.00 

$399.00 

99.00 

195.00 

Connection Cables 
and $10 for UPS 


15 DAY FREE TRIAL. We give you 15 days to try out this ATARI COMPUTER SYSTEM! ! If it doesn’t meet your expectations, just send it 
back to us prepaid and we will refund your purchase price! ! 

90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the ATARI COMPUTER SYSTEM equipment or programs fail due to faulty 
workmanship or material within 90 days of purchase we will replace it IMMEDIATELY with no service charge! ! 


Best Prices * Over 1000 Programs and 500 Accessories Available * Best Service 
* One Day Express Mail ' Programming Knowledge * Technical Support 


Add $25.00 for shipping and handling!! Dept, ant/6 
Enclose Cashiers Check, Money Order or Personal Check. 
Allow 14 days for delivery. 2 to 7 days for phone orders. 1 day 
express mail! We accept Visa and MasterCard. We ship 
C.O.D. to continental U.S. addresses only. 


COMPUTER DIRECT 

We Love Our Customers 
Box 1001, Barrington, 111.60010 

312/382-5050 to order 


PRINT SHOP 

continued from Page 25 

a programming hobbyist would have 
a difficult time writing a conversion 
program. 

One frustrating omission is Print 
Shop’s inability to make labels. What 
about all my home-made peach pre- 
serves and canned prunes? 


Nevertheless, Print Shop is the kind 
of program that should appeal to a 
huge audience. I can’t think of a bet- 
ter computer gift for children — if the 
adults will let them get their hands on 
it. We really should all thank Broder- 
bund for converting this hit software 
to the Atari. Now if they would only 
buckle down and get to work on an 


Atari conversion of Championship 
Lode Runner. . . 

PRINT SHOP 

Broderbund Software 
17 Paul Drive 
San Rafael, CA 94903 
(415)479-1170 

$44.95— 48K disk Q 




for the ATARI 800 or XL 


Cut your programming time from hours to seconds, and have 33 
direct mode commands and functions. All at your fingertips and 
all made easy by the MONKEY WRENCH II. 

The MONKEY WRENCH II plugs easily into the cartridge slot of your 
ATARI and works with the ATARI BASIC 

Order your MONKEY WRENCH II today and enjoy the conveniences 
of these 33 features: 

• Line numbering 

• Renumbering basic line numbers 
i Deletion of line numbers 


► Variable and current value 
display 

► Location of every string 
occurrence 

» String exchange 

► Move lines 

► Copy lines 

» Up and down scrolling of 
basic programs 


• Special line formats and 
page numbering 

• Disk directory display 

• Margins change 

• Home key functions 

• Cursor exchange 

• Upper case lock 

• Hex conversion 

• Decimal conversion 

• Machine language monitor 

• DOS functions 

• Function keys 


The MONKEY WRENCH II also contains a machine language monitor 
with 16 commands that can be used to interact with too oc 
the powerful features of the 6502 microprocessor. ? A 7 . 7 O 
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Have You KISSed 
Your Atari Lately? 

Introducing “KISS", a new, simpler, 
more powerful Word Formatter/Processor 
for your Atari 800, 600XL, and 800XL 

“KISS” comes in a cartridge, and is designed for the occa- 
sional user, yet simple enough for beginners and children. 

It comes with an easy to read manual, that contains example 
text files. Check out these other “KISS" features: 


► Input of text is via standard 
ATARI screen editor - so 
there is nothing new to learn 

► Only 13 commands to 
process text 

» Text can be sent to screen 
or printer 

* Single page or fan-folded 
paper can be used by 
printer 


• Prints English error messages 

• The "KISS" cartridge does not 
have to be installed in order 
to input text information 

• Automatic page numbering 
on output 

• Text can be justified to both 
the left and right margins 

• Can be used for letters, reports, 
term papers, etc. 


KISS^ 

Call us today for your “KISS” Only $19.95 


3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)748-8446 
Send for free catalog! 
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Your Atari master weaver 


by GERALD M. HAGOPIAN 


S erious weavers regularly face 
the process of selecting col- 
ors and patterns for their 

various looms. And as you 

know, displaying intricate color pat- 
terns is a job that’s duck soup for the 
Atari. With the Color Inkle Loom pro- 
gram, you can design patterns for use 
with the inkle loom which — in 
weaver’s jargon — is a two-harness 
plain weave loom. 

This program should be a good 
start for Antic readers who might 
wish to develop design software for 
looms that are more complicated than 
the widely used inkle. 

ATARI WEAVING 

Type in Listing 1 and check it with 
TYPO II. SAVE it before you RUN it. 

After the opening screen, you’ll see 
a menu. You can choose to Create a 
new weaving, Save a weaving, Load 


a previous weaving, or Exit the 
program. 

If you are creating a new weaving, 
you’ll be asked for the number of 
threads per harness, up to 39 each. 
After typing a number, you’ll be ask- 
ed if you’re sure. Type [ Y] to continue, 
anything else to go back. 

Then choose colors, starting with 
harness #1, thread #1, followed by 
harness #1, thread #2, and so on. In 
each case, you’ll be asked for the col- 
or letter — which you’ll take from the 
marked band of colors across the 
screen. Once again, you’ll be asked if 
you’re sure. Type [Y] to continue, 
anything else to go back. 

When you’re done choosing colors, 
you’ll be asked if you’re ready to 
weave. Type [ Y] to continue. You can 
start weaving, or change the intensity 
of the colors you’ve chosen. With the 
spectrum band’s range of 16 colors, 
and the Change Color Value option, 
you can produce any of the Atari’s 
colors. 

Gerald M. Hagopian is a freelance 
consulting designer working with 
consumer products and interior 
design. 

Listing on page 60 El 


Design intricate 39-thread weaving 
patterns for the inkle loom with this 
BASIC program. (If you ’re a weaver, 
inkle loom won’t sound strange.) 
Color Inkle Loom works on all Atari 
computers with 24K memory. 

24K cassette, 32K disk. 
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They laughed when I sat down at the 800 XL... 


by NAT FRIEDLAND, Antic Editor 


kay, I confess. Before I 
settled on writing I was 
a committed would-be 
musician. As a kid and 
teenager I must have spent hundreds 
of hours teaching myself piano, 
rhythm guitar and chromatic har- 
monica. I played first trombone in the 
high school band, thus becoming 
automatically eligible for a music 
scholarship to state teachers college 
if I had wished to go. 

It was relatively easy for me to pick 
up the rudiments of playing different 
instruments. But there would always 
come a time — much too soon — when 
I ran into the upper limits of my 
musical coordination. I could never 
seem to really master any instrument. 

I used to daydream about some 
kind of future electronic musical in- 
strument coming along that would 
automate things the things I couldn’t 
get my fingers to do and let me ex- 
press my musical ideas without being 
an instrumental whiz. Little did I 
know those instruments would be- 
come a reality — even an affordable 
reality — in less than two decades. 

Recently my musical frustrations 
have been much more localized. It 
seemed as if all the good musical soft- 
ware and plug-in computer piano- 
keys from companies like Sequential 
Circuits or Passport were being made 
only for the Apple II or the Commo- 
dore 64. 


1985 ATARI MUSIC 

However, in 1985 all this has changed. 
Some truly phenomenal new musical 
peripherals for our favorite personal 
computer are about to make the Atari 
the new champion of computer-as- 
sisted musicmaking. 

In this article you will read about: 

• A new kind of ‘ ‘music generator’ ’ 
software that lets you compose 
and improvise in real-time at the 
Atari keyboard. The four-voice 
sound is tracked by colorful geo- 
metric graphics. Press a couple 
of Atari keys and you’ll feel like 
the next Brian Eno. 

• A software and “black-box” pro- 
duct that lets your Atari emulate 
an advanced 16-track digital 
recording studio. 

• A remarkably powerful new 
MIDI synthesizer that sells for no 
more than what an Atari disk 
drive used to cost. 


1. VIRTUOSO 


At a music studio in Queens, New 
York last year you’d find three kids at 
a time sitting in front of Atari com- 
puters and listening on earphones 
while geometric patterns of color 
flashed across the video screen. These 



VIRTUOSO screen. 


kids were taking two-hour lessons in 
creating music on the Virtuoso 
sound generator and when the ses- 
sions were over their parents often 
had to drag them away from the 
machines. 

Virtuoso is such a unique new ap- 
proach to musicmaking that it’s not 
easy to describe. It’s one of the closest 
things in the real world to the multi- 
arts competitions that Herman Hesse 
wrote about in his classic literary fan- 
tasy The Bead Game. In that book, 
Hesse wrote about chess-like contests 
where one player’s move might be a 
theme from a symphony and the op- 
ponent’s countermove could be a line 
of a poem or a section of a paint- 
ing. . . 

Virtuoso gives you a user-friendly 
method of tapping the extremely fast 
and powerful changes that a com- 
puter can control in every aspect of 
music performance. It bypasses the 
limits of traditional musical notation 
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MIDITRACK II 

and uses an almost self-explanatory 
color graphic display that delivers 
mathematical insights into the struc- 
ture of music. 

USING VIRTUOSO 

You’d enter a musical pattern into Vir- 
tuoso from the Atari keyboard, or call 
up one from about 480 that could be 
stored on a single disk. The pattern 
would start sounding and the lines of 
colors would trace it visually. At this 
point you could start creating all sorts 
of changes in the pattern — which you 
would hear and see immediately. 

As the pattern was playing, you 
could change its speed, rhythm, 
pitch, tone, volume, key scale, etc. You 
could enter new patterns any time. 
There’s even a Future mode where 
you can enter changes before they are 
due to be played. The effect of con- 
trolling so much musical power so ef- 
fortlessly feels something like con- 
ducting an orchestra at the same time 
as you are composing the music that 
it plays. 

In technical terms, Virtuoso is a 
sound generator that produces four 
voices from the POKEY chip. You can 
make instant real-time changes in the 
voices in any of six parameters. Four 
computers running Virtuoso can be 
linked together to have up to 16 in- 
dependent channels controlled by 
one Atari. 


As a sound editor, Virtuoso can syn- 
chronize multiple voices with 1/60 of 
a second accuracy and tune them 
within 10 steps of intonation. Any 
musical passage can be moved any- 
where, saved, and replayed in any key 
and in virtually any rhythm. 

COMING SOON 

This groundbreaking product is a col- 
laboration between former Julliard 
Music Professor Joseph Lyons and 
Frank Schwartz, a highly experienced 
programmer and electronics designer. 
Originally, Virtuoso was financed by 
Warner Leisure Software, who natu- 
rally wanted it for the Atari and in car- 
tridge form. 

After Warner Software shut its 
doors last year, Schwartz and Lyons 
obtained new funding and are hop- 
ing to have Virtuoso on the market by 
August. At this point, Virtuoso is to 
be on disk, available for either the 
Atari or Commodore 64, and priced 
at about $50. 

Not only that, a $150 MIDI inter- 
face for Virtuoso is also being readied 
for August release. Virtuoso will there- 
fore be usable as a visual language for 
MIDI controllers — not only for music, 
but also for lighting and sound effects, 
lasers, etc. Once again, shades of 
Hesse’s The Bead Game. 


Lyons and Schwartz are as enthu- 
siastic about the Casio CZ-101 syn- 
thesizer as Antic is, and Virtuoso will 
definitely run on this outstanding 
electronic instrument — which will 
provide even greater power, versa- 
tility, sound quality and handling ease 
than the Atari POKEY chip. 

PLEASE NOTE that Virtuoso is a 
product that is still under develop- 
ment and has not yet been released 
at this writing. Antic will print more 
news of Virtuoso as soon as it be- 
comes available, so please do not 
phone or write us asking where to get 
it yet. 

How does Antic know that Vir- 
tuoso is for real? There are two rea- 
sons. 1. We have heard (and seen) Joe 
Lyons play four-part Bach Fugues on 
it. 2. Antic has a first-generation Vir- 
tuoso cartridge that Frank Schwartz 
gave us. 

Our prototype Virtuoso cartridge is 
packed solid with microchips and ac- 
tually a plug-in board. Its music gen- 
erating functions are 100% in work- 
ing order, but figuring out how to play 
it from only the skimpy documenta- 
tion notes is not too easy. At present 
you’d need Lyons standing over your 
shoulder to explain things, the way he 
does in his studio lessons. 

Thats why the final development 
work is concentrated on making Vir- 
tuoso even friendlier to operate. There 
will be icon menus, an inexpensive 
membrane keyboard for musical in- 
put (if you’re not using a MIDI instru- 
ment), and six levels of complexity 
that will gradually take you from 
beginner to expert status. 


2. MIDITRACK II 

MIDITRACK II has been wowing 
them at computer shows and musical 
instrument shows since last fall. It’s 
available at various professional-music 
stores around the country' or by mail 
from the manufacturer for $349- (De- 
tailed manufacturer information will 
be found at the end of the article.) 

Interestingly, your Atari will be the 
least expensive component of this 

continued on next page 
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music system. Bob Moore of Hybrid 
Arts, makers of MIDITRACK II, gives 
a slightly surprising reason why the 
Atari was chosen to drive the system. 
“The Atari is the sturdiest of the in- 
expensive lightweight computers,” he 
said. “We believed it would have the 
best chance to survive a long profes- 
sional road tour.” 

MIDITRACK II disk software and 
the included MIDIMATE interface box 
work with any Atari that has 48K 
memory. The Atari itself does not pro- 
duce any sounds with its POKEY chip 
here. It simply acts as the controller 
for up to 16 channels of information 
transmitted by MIDI instruments. 

WHAT’S MIDI 

MIDI stands for Musical Instrument 
Digital Interface. It’s a set of electronic 
standards — just as ASCII, RS-232 and 
Parallel Centronics are standards — 
that allows electronic musical instru- 
ments to coordinate and exchange 
digitally encoded sound information. 

Moore, who was primarily a 
Hollywood studio musician before 
coming up with the idea for MIDI- 
TRACK II, said, “If you’ve already got 
an Atari and disk drive, it should cost 
you no more than $3,000 to have a 
fully professional digital recording 
setup. (To just have fun with your Atari 
music system, you could get away 
with $500 or less. More on this later.) 

What you need for a fully profes- 
sional system is a main synthesizer, a 
drum machine, and probably a se- 
cond synthesizer to give you a bit 
more variety of sounds. The second 
synthesizer doesn’t even need to have 
a keyboard because you can play it 
from the main synthesizer. 

At the other extreme, you could 
theoretically daisychain huge gangs of 
MIDIMATEs and electronic instru- 
ments. You could mix 16 completed 
tracks onto a single track, make 15 
new tracks and mix everything down 
to track 2, and then repeat the pro- 
cess. You could run a symphony or- 
chestra of synthesizers from a single 
Atari, even a stadium filled with 
synthesizers. . . 

Normally the way you’d operate a 
MIDITRACK II system is something 
like this: First you’d set up a drum pat- 


tern and record it on track 1. Next 
you’d adjust your synthesizer to 
sound like a bass and play an accom- 
paniment onto track 2. With your 
“rhythm section” in place you could 

Fisure 1 



A typical system hook up is shown in figure 1 . 
Note that synth A is the master synth because 
both its MIDI IN and MIDI OUT are connected 
to the MIDIMATE interface box. 

then start layering all sorts of in- 
teresting synthesized sounds on top 
to make melodies and harmonies in 
the rest of the available tracks. 

STUDIO IN A BOX 

Once you were finished, you would 
have a fully edited arrangement for 
MIDI instruments which you could 
then record on tape for combination 
with vocals or non-MIDI instruments. 
The length of the music you could 
save would depend somewhat on 
how many notes were in the piece. 
The limit per file is 3,000 sequenced 
notes. 

By the way, usually you can simul- 
taneously call up more than one track 
from a single MIDI instrument. Many 
synthesizers could give you as much 
as 8 simultaneous tracks. 

On the whole, the MIDITRACK II 
documentation is excellent. Once you 
have plugged everything in, the 


manual suggests that you simply press 
your Atari spacebar, play something 
on your synthesizer, and then press 
the spacebar again. That’s all it takes 
for a recording and playback! 

One of our testers kept losing his 
music at first, every time he tried to 
save a track. But once he figured out 
that this was caused by holding down 
the Inverse Video key too long dur- 
ing the save command, there were no 
problems. 

MIDITRACK II is designed to op- 
erate like a professional multitrack 
tape recorder. So it contains all the 
features you would normally expect 
to find in a recording studio. All 16 
tracks are independent unless you 
mix them together. You can syn- 
chronize tracks or change the speed 
of the entire recording. You can over- 
dub or transpose tracks. You can 
automatically locate any spot on the 
recording. You can “punch in” any- 
where to record difficult passages one 
note at at time. 

MIDITRACK II even supports the 
advanced technique of quantization, 
or autocorrect. For example, if your 
timing was a bit uneven when you 
were trying to play that flashy bass 
part you could set the notes to 
automatically come out on the beat. 


3. CASIO CZ-101 


Most Atari owners who buy MIDI- 
TRACK II will probably decide to use 
the new Casio CZ-101 synthesizer as 
their primary keyboard. That’s be- 
cause the CZ-101 sells for about one- 
fourth the price of any comparable 
synthesizer! It lists for $499 but has 
been on sale at Macy’s for as low as 
$300. 

The instruments that Bob Moore 
brought along to demonstrate MIDI- 
TRACK II were the Yamaha DX7 syn- 
thesizer which has a list price of 
$1,995 and the Yamaha RXII drum 
machine which lists for $895. Both 
of these instruments are very popular 
with professional musicians and are 
not considered unusually high-priced 
in comparison to the competition. 

At the time, Moore told Antic that 
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a new low-priced but powerful syn- 
thesizer from Casio was due to be 
released shortly and it would ap- 
parently be at least somewhat com- 
parable with the DX7. Well, the 
CZ-101 was show n at the Consumer 
Electronics Show and Casio kindly let 
us have one to use with our MIDI- 
TRACK II. 

ST OF SYNTHS 

We swiftly discovered that the CZ-101 
is considerably more than merely a 
stripped-down version of the DX7. In 
fact, this Casio could almost be con- 
sidered the Atari ST of sythesizers — 
it delivers far more “power without 
the price” than anything else in its 
class. Despite the Casio brandname 
we are talking about a real synthesizer 
here, not an “electronic music-maker” 
with one-key chords and preset drum- 
bass patterns. (It doesn’t have a built- 
in speaker either.) 



Fig. 2 shows an example of an envelope using 
all 8 steps. In this example, there are two 
attacks before the Sustain Point as well as a 
third attack after releasing the keys. This shows 
how you even have the possibility of setting 
an “after-envelope”. 

In many ways the CZ-101 is even 
more versatile than earlier, more cost- 
ly synthesizers. A review in the March, 
1985 issue of “Keyboard,” the top 
magazine for electronic keyboard 
players, concludes, “The CZ-101 
makes good use of the latest digital 
technology. Its attractive features in- 
clude seven excellent envelope gene- 
rators, good-sounding waveforms, 
and several doubling modes for buil- 
ding up complex timbres. As an inex- 
pensive and versatile MIDI slave 
module, it could be a very effective 
addition to almost any stack.” 

Upon translation from synthesizer 
jargon, what this means is that the 
CZ-101 ’s strongest point is its wide- 
ranging capability of creating and 
manipulating synthesized sounds. It 


has more waveforms, envelopes, 
oscillators and more ways to combine 
these soundmaking elements than 
most previous synthesizers. 


multitrack compositions featuring 
your own synthesized sounds almost 
as soon as you’ve got your system 
cabled together. 


Figure 3 



CASIO CZ-101 


In this instrument you’ll find a full 
assortment of standard high-end syn- 
thesizer features such as pitch-bend 
wheel, ring modulator, portamento, 
octave shift, detune control, phase 
distortion sound generator. 

16 INSTRUMENTS 

The CZ-101 starts you off with 32 
factory-preset sounds— flute, electric 
piano, violins, organ, etc. — that range 
from okay to pretty good. You can 
reprogram 16 of these sound 
“patches” to hold your own sound 
creations (you can bring back the fac- 
tory patches anytime). Also there’s a 
slot for additional 16-patch program- 
mable cartridges. 

People who play piano by ear and 
can only play in one key (usually 
either all white notes or all black 
notes) will deeply appreciate the 
transpose button that will instantly 
shift you into even the most complex 
key (four flats, five sharps, etc.). 

The CZ-101 has 49 keys of standard 
“mini-keyboard” size. Purists may in- 
sist that only full-size keys will do, but 
personally I enjoy the feeling of span- 
ning left-hand tenths as effortlessly as 
I would reach octaves on a full-size 
keyboard. 

A GREAT TEAM 

The CZ-101 works in combination 
with MIDITRACK II remarkably effec- 
tively. You don’t need to be a musical 
genius to record and playback flashy 


And you can dramatically change 
the synthesizer voicings during play- 
back and hear your new sounds in 
real time. Or if you tinker with the 
playback of the demonstration songs 
provided with MIDITRACK II you can 
try out sounds as unique as a Mozart 
Sonata being played on a vibraphone 
or jazz organ. 

So tune up your Atari and unlock 
your creativity. With MIDITRACK II, 
the Casio CZ-101 and Virtuoso, you 
might very well be world’s next 
musical genius! 

MANUFACTURERS 

MIDITRACK II 
Hybrid Arts 
P.O. Box 480845 
Los Angeles, CA 90048 
(818) 508-7443 
S349-48K disk 

CZ-101 SYNTHESIZER 
Casio, Inc. 

15 Gardner Road 
Fairfield, NJ 07006 
(201) 575-7400 
$499 (Suggested list) 

VIRTUOSO 

Enhanced Technology Associates 
125 W. Duke Ellington Blvd. 

New York, NY 10025 
$50— 48K disk 
$150— MIDI interface 
(Available August 1985 or later) 

□ 
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VK POWER WITHOUT THE PRICE 
ATARI AT. • -COMPUTER CREATIONS 


COMPUTERS 

Atari 1 30 ST 

Atari 520 ST 


ATARI HARDWARE 

COMPUTERS 

Atari 800 XL CALL 

Atari 65 XE FOR NEW 

Atari 130 XE PRICES 

DISK DRIVES 

Atari 1050 CALL Atari SF 324 (3’/2" floppy disk 250K) 

Indus GT (Free Software) FOR Atari SF 354 (3 ’/j" floppy disk 500K) 

Astra 2001 NEW Atari SH 317 (3 ’/j" hard disk 10 MB) 

Astra "Big D" PRICES Happy Enhancement for Atari 

810 and 1050 Drives 


PRINTERS 

Atari XTM 201 (Non-impact 

Dot Matrix 20 CPS) 

Atari XTC 201 (Color, non- 
impact Dot Matrix 

20 CPS) 

Atari XDM 121 (DaisyWheel 

Letter Quality 12 CPS) CALL 

Atari XMM 801 (Dot Matrix, 

Impact 80 CPS) FOR 

Atari 1025 (Dot Matrix, Impact 

CPS) NEW 

Atari 1027 (Letter Quality) . . . 

Atari ST 504 (Color Dot Matrix, PRICES 
non-impact 50 CPS) 

EPSON PRINTERS 

LX-80 (80 column) Call For 

LX-80 Tractor Feed Printer & 

Epson FX-80+ (80 column) . . . Interface 
Epson RX 1 00+ (135 col.) .... Packages 

STAR MICRONICS PRINTERS 

SG-10 (80 column) 

SG-1 5 (136 column) CALL 

SD- 10 (80 column) FOR 

SD-1 5 (136 column) PRICES 

SR-10 (80 column) 

SR-15 (136 column) 

SB-10 

Powertype Daisywheel 

Powertype Tractor Feed 

PANASONIC PRINTERS 

KX- 1090 Call 

KX - 1091 For 

KX-1092 Prices 

LQ - 31 51 

Okimate 1 0 plus plug n' print 

PRINTER INTERFACE CABLES 

MPP-Microprint 49 

MPP-1 1 50 Parallel Printer 

Interface 65 

U-PrintA 75 

A-1 6 Interface/Buffer 99 

APE Face XLP 65 

APE Face 12XLP 75 

Microbits Microstuffer 109 

PRINTER RIBBONS 

Gemini Printers (Black/Blue/ 

Red/Purple/Brn./Grn.) 5 

Epson Printers 8 

Panasonic Printers, Black 10 

Panasonic Printers, Color 13 


MONITORS 

Atari XC141 (14" Composite 

Color) 

Atari XM 148(12" CALL 

Monochrome, 80 column, FOR 

low resolution) PRICES 

Atari SM 124(12" 

Monochrome, 80 column, 

high resolution) 

Atari SC 1 224 (1 2" RGB Color) 

Sanyo 1 2" Green Screen 79 

Sanyo 1 2" Amber Screen 79 

Sanyo Color Screen, 13" 209 

Sanyo 9" Green Screen 69 

Monitor Cable 

Teknika 13" Color MJ 10 209 

MODEMS 

Atari 1030 Direct 300 Band 

Connect CALL 

Atari XM 301 Direct FOR 

Connect 300 Band PRICES 

MPP-1000E Modem 109 

Signalman Mark XII Modem with 

R-Verter 299 

Mark X with R-Verter 169 

CompuServe Starter Kit 24 

UPGRADES/ 

ACCESSORIES/BOOKS 

ACCESSORIES 

Flip n' File 10 4 

Flip n' File 15 7 

Original Flip n' File 50 14 

Flip n' File Cart Case 12 

Library Cases (10 colors) 4 

Disk Bank/5 (Holds 50) 12 

Disk Bank (Holds 10) 5 

Power Strip (6 outlet) 16 

Lineguard Spike Suppressor 13 

Disk Drive Cleaning Kit 13 

MicroMate Paper 

(20#, 540 sheets.) 10 

Computer Paper 

(15#, 3200 sheets.) 30 

Printer Stand (wire) 16 

Dust Covers Call for availability 

UPGRADES: 

Ram Rod X/L W/Omnimon 99 

Omniview for 800 XL 49 

B.l. 80 Column Adaptor Call 

U.S. Doubler 65 

MPP64 K 69 

BOOKS: 

Lg. selection of titles avail Call 



GENERIC DISKS AT FANTASTIC PRICES! 

SS/DD GENERIC DISKS AS LOW AS 99C ea. 

Generic 100% Defect-Free/Guaranteed. 

Includes sleeves, labels, write protect tabs, reinforced hub rings, lifetime 
warranty. (2 boxes minimum) 

SS/DD 

DISKETTES 2 boxes $11.99 

(2 bx. minimum) 3-6 boxes $10.99 

10 per box 7 -10 boxes $ 9.99 

MORE THAN 10 BOXES . . . CALL! 

★ ★ DEALER INQUIRIES INVITED * * 


DS/DD 

$13.99 

$12.99 

$11.99 


COMPLETE LINE OF ATARI SOFTWARE 


SOFTWARE 


INFOCOM 


EPYX 


Cut Throats (D) 

24 

Dragonriders of Pern (D) 

.28 

Deadline (D) 

32 

Summer Games 

. 28 

Enchanter (D) 

34 

Pitstop II (D) 

. 28 

Hitchhiker's Guide to 


Ballblazer(D) 

. 28 

the Galaxy (D) 

24 

Rescue on Fractalus (D) 

.28 

Infidel (D) 

28 

Temple of Apshai(D) 

...25 

Planetfall (D) 

24 

ACCESS 


Sea Stalker (D) 

24 

Beach Head (D) 

...24 

Sorcerer (D) 

28 

Beach Head II (D) 

...24 

Starcross(D) 

32 

Raid Over Moscow (D) 

. 28 

Suspect (D) 

32 

ACTIVISION 


Suspended (D) 

32 

Decathalon (R) 

... 21 

Witness (D) 

24 

Pitfall II (R) 

... 21 

Zork 1(D) 

24 

Space Shuttle (R) 

...21 

Zork II or III (D) 

28 

Ghost Busters (D) 

24 

invisiciues Hint Books 

7 

AMERICAN EDUCATIONAL 


MICROPROSE 


Spelling Grades 2 thru 8 (D) . 

... 15 

F-1 5 Strike Eagle (D) 

24 

Reading Comprehension (D) . . 

19 

Mig Alley Ace (D) 

24 

BATTERIES INCLUDED 


Solo Flight (D) 

24 

Paperclip (D) 

.59 

OSS 


Homepak 


Action (R) 


B/Graph 

. Call 

Action Tool Kit (D) 

28 

BRODERBUND Home Pak 


Basic XL (R) 

68 

Printship (D) 

.. 32 

DOS XL (D) 

28 

Spelunker(D) 

.. 21 

MAC/65 (R) 

68 

Stealth (D) 

.. 21 

MAC/65 Tool Kit (D) 

28 

Whistler's Brother (D) 

.. 21 

Writer's Tool Kit 

68 

CBS 


ORIGIN 


Call for items and prices 


Ultima III (D) 

42 

CONTINENTAL 


SCARBOROUGH 


Home Accountant (D) 

.. 50 

Mastertype 

28 

DATASOFT 


Net Worth 

52 

Bruce Lee 

.. 24 

SIERRA ON LINE 


Dallas Quest 

.. 24 

Ultima 1 

26 

Conan 

.. 28 

Ultima II 

42 

Letter Wizard w/spelier 

Call 

SPINNAKER 


ELECTRONIC ARTS 


Call for items and prices 


Archon (D) 

. . 29 

SYNAPSE 


Pinball Construction (D) 

.. 29 

Quasimodo 

18 

M.U.L.E. (D) 

. . 29 

Alley Cat 

18 

Murder/Zinderneuf (D) 

. . 29 

Syn-File + 

38 

One on One (D) 

. . 29 

Syn-Calc 

38 

Archon II (D) 

. . 29 

Syn-Trend 

28 

Music Construction (D) . . 

.. 29 

Syn-Comm 

28 

Realm/Impossibility (D) 

. . 29 

Syn-Stock 

28 

Hard Hat Mack 

.. 25 

Mmdwheel 

Call 

AXIS Assasin 

.. 25 

Essex 

Call 

Seven Cities of Gold 

. . 29 

TRONIX 


Adventure Construction Set . . 

. . 29 

S.A.M 

42 

Cut and Paste 

. 37 

Chatterbee 

28 



To order call TOLL FREE 

1 - 800 - 824-7506 


ORDER LINE ONLY 


COMPUTER CREATIONS, Inc. 

P.O. Bo 292467 - Dayton, Ohio 45429 

For information call: (513) 294-2002 (Or to order in Ohio) 

Order Lines Open 8:30 a.m. to 8:00 p.m. Mon.-Fri.; 1 0 a.m. to 4:00 p.m. Sat. (Eastern Standard Time). Minimum $1 0 per order. C.O.D. (add $3.00). Call toll free number to verify 
prices and availability of product. Hardware requires additional freight charges. Software and accessories add $3.00 shipping and handling in Continental United States Actual 
reight will becharged outside U.S. to include Canada, Alaska, Hawaii, Puerto Rico. Ohio residents add 6%sales tax. Free shipping on prepaid cash orders within the Continental 
U.S. For immediate delivery send cashier's check, money order or direct bank transfers. Personal and company checks allow 3 weeks to clear. School purchase orders welcome. 
Due to our low prices, all sales are final. NO CREDITS. All defective returns must have a return authorization number. Please call (5 1 3) 294-2002 to obtain an RA# or your return 
will not be accepted for replacement or repair. 


GUITAR 

TUTOR 

Learn and play guitar 
chords on your Atari 

by FRANK IMBURGIO and GRACE BARRY 



A program that diagrams and plays 
simulated guitar chords. The BASIC 
listing works on all Atari computers 
of any memory configuration. 

M y great new Program In 
The Works wasn’t work- 
ing at all. Rather than 
break my new 800XL, 
(which was a serious consideration at 
this point), I reached for my guitar. I 
played a song or two while staring at 
the screen, and the idea for Guitar 
Tutor was bom. Why not create a pro- 
gram to generate, diagram, and play 
guitar chords: major, minor, seventh 
and minor seventh chord combina- 
tions? 

To use the program, first type in the 
BASIC listing. Check it with TYPO, 
and save an extra copy as a backup. 

A music background is not neces- 
sary to understand or play with 
“Tutor”! The first thing you will see 
is “Pick a note to build a chord on.” 
Take your pick from the list given, A 
through G. Then you will be asked to 
pick a natural, flat, or sharp. After you 
do that, you can pick whether you 
want your chord to be a major, minor, 
seventh, or minor seventh. 

Now the screen will diagram the 
chord for you! These are standard 
guitar chord diagrams used in music 
books. Vertical lines represent the six 
strings of the guitar. Horizontal strings 
represent the frets. Dots represent 
where you press your fingers. X’s rep- 
resent strings that are not strummed, 
and O’s represent strings that are 
strummed “open”, with no finger 
pressing on the string. If two dots are 
on the same fret, “bar” with your 
finger — press more than one string 
down with the flat of your finger. 
If you press “S” at this point, you 
will hear the four individual tones 
which make up the chord you have 
chosen. To the right of the diagram 
you will see a vertical line of eight 
numbers, the eighth reading REST. By 
pressing a number from one through 
seven, you can put the chord on the 
screen into a “memory.” Now press 
[P] and you can play your chords by 

continued on next page 
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Software Discounters 

of America (& Peripherals, too!) 

For Orders Only — 1-800-225-7638* 

Inquires and PA 412-361-5291 


•Free Shipping on orders over $100 in continental USA 
•No surcharge for VISA/MASTEPCARD 


1 ACCESS 



Spitfire Ace (D) .... 

$19 

Pacemaker (R) 

$17 

Beach Head (D) . . . . 

$23 

Impossibility (D) . .$23 

MINDSCAPE 


Fraction Fever (R) . . 

$17 

ACTIVISION 



Bank St. 


Kids on Keys(R) . . . 

$17 


$19 

EPYX 

Musicwriter(D) . . 

$33 

Kindercomp(R) .... 

$17 

Designer's Pencil (R) $19 

Dragonriders Pern (D)$27 

Crossword Magic (D) $33 

Math Busters (D) . . . 

.$19 

Ghostbusters(D). . . 

$21 

: un w/Art (R) $19 

Hally Project: Mission 



Pitfall II (R) 

$19 Gateway Apshai (R) .$19 

in our Solar 


Thing (D) 

$19 

Space Shuttle (R) .. 

$19 

Jumpman Jr. (R) . . $19 

System (D) 

$29 

Snooper Troops 




3 itstop (R) $19 

Tink'sSubt. Fair(D) 

$19 


$19 


$18 

Pitstop 11(D) $27 

MUSE 


Story Machine (R) . . 

$17 


$16 

3 uzzlepanic (D) $19 

Beyond Castle 



$19 



Summer Games (D) . $25 

Wolfenstein(D) . . 

$23 

SUBLOGIC 



$18 

'with the purchase of ea. 

Castle Wolfenstein(D)$19 




Epyx title, receive free 

OSS 


Night Mission 




your choice of 

Action (R) 

$59 


$21 


Monster Maze, Plat- 

Action Tool Kit (D). . 

$26 





termania or Star War- 

Basic XL (R) 

$49 


$17 



rior (please give 1st & 

Basic XL Tool Kit (D). $26 

Blue Max (TorD). . . . 

$21 


$39 

2nd choice) 

DOS XL w/Bug 65(D) $26 


$21 


$43 

FISHER PRICE 

MAC 65 (R) 

$59 

Dimension X (D) ... 

$21 


$21 

All Titles Available . Call 

MAC 65 Tool Kit (D) . 

$26 

Electronic Novels . . 

Call 


$23 

GAMESTAR 

Writer's Tool (R) . . . 

$59 

Encounter (D) 

$17 



Star Bowl 

OMNITREND 


Ft. Apocalypse (D) . 

.$21 



Football (TorD) . . $21 

Universe (D) 

Call 

Necromancer (D) . . . 

$21 


$27 

Star League 

ORIGIN 


Pharoah's Curse (D) 

$21 


$29 

Baseball (TorD) . . $21 

Ultima III (D) 

$39 

Quasimodo (D) . . . . 

$17 

Print Shop Paper 


HBJ 

PROFESSIONAL 


Shamus II (D) 

$21 

Refill 

$14 

Computer SAT (D) . $49 

SOFTWARE 


Syn-Calc (D) 

. $35 

Serpent's Star(D) . . 

$27 

INFOCOM 

Trivia Fever (D) . . . . 

$25 

Syn-Chron(D) 

$26 


$21 

Cut Throats (D) $23 

SSI 


Syn-Comm (D) 

$26 




Battle for 


Syn-File(D) 

$35 

1 Whistler’s Brother(D)$19 

Enchanter (D) $23 

Normandy (D) ... 

$27 

Syn-Stock (D) 

$26 



Hitchhiker's Guide to 

Breakthrough in 


Syn-Trend (D) 

$26 

Astro Grover (R) .. 

$23 

the Galaxy (D) . . . $23 

Ardennes(D) . . . . 

$39 

TIMEWORKS 


Big Bird Spc.Del.(R) 

$17 

Infidel (D) $27 

Broadsides (D) 

$27 

Data Manager (D) .. 

$17 


$21 

Invisiclues Call 

Carrier Force (D) . . . 

$39 

Electronic 




Planetfall (D) $23 

Combat Leader (D) . 

$27 

Checkbook (D). . . 

$17 

Shapes(R) 

$17 

Seastalker(D) $23 

Computer Ambush (D) $39 

Money Manager (D). 

$17 


$19 

Sorcerer (D) $27 

Computer Baseball(D) $27 



Math Mileage (R) . . 

$19 

Suspect (D) $27 

Computer QB (D) . . 

Call 

Pokersam (D) 

$17 


Call Suspended (D) $29 

Cosmic Balance (D) 

$27 


$39 



Witness (D) $23 

Cosmic Balance II (D) $27 

ACCESSORIES 



.$19 

Zorkl(D) $23 

Eagles (D) 

$27 

Ape Face Printer 


CONTINENTAL 


Zork II or III (D) $27 

Epidemic (D) 

$23 

Interface 

$49 

Book of Adv. Games 

$16 

KOALA 

Field of Fire(D) . . . . 

$27 

Astra 2001 Dual 


Financial 


Coloring Series 1 (D) $12 

50 Mission Crush (D) $27 

Disk Drive 

Call 

Strategies (D) .. 

$39 

Coloring Series II (D) . $12 

Fortress (D) 

$23 


1 Home Accountant (D)$44 

Instant Programmers 

Galactic Adv. (D) . . 

$39 


DATASOFT 


Guide (D) $9 

Imperium 


CompuServe Starter 


Bruce Lee (D) 

$23 Spider Eater (D) $12 

Galactum(D) . . . . 

$27 

Kit (5 hrs.) 

$23 


$23 

Tablet w/Painter(D) ... * 

Kampfgruppe (D) . . 

$39 

Digital Devices 



$23 

Tablet w/Painter(R) Call 

Knights of Desert (D) $27 

Printer Buffers . . 

Call 


$19 

'see our display ad in 

Objective Kursk (D) 

$27 

Digital Devices 


Letter/Spell 


this issue for lowest 

Operation Market 


U Print A 

$59 


$47 

nriqp pvpr 

Garden (D) 

Call 

Disk Case (Holds 50) . . $9 | 


$19 

LJK 

Questron(D) 

$33 

Disk Case (Holds 100) $19 1 

Pac Man (D) 

$19 

Data Perfect (D) $49 

Rails West (D) . . 

$27 

Disk Drive Cleaner . 

$9 1 

Pole Position (D) . . 

$19 

Letter Perfect (D). . $49 

Reforger '88 (D) . . . 

$39 

Full Stroke Replacement 1 

Sands of Egypt (D) 

$17 

LEARNING COMPANY 

Tigers in Snow (D) . 

$27 

Keyboard for 



$19 

Bumble Games (D) . .$23 

War in Russia (D) . . 

$53 

Atari 400 

$49 1 

DESIGNWARE 


Magic Spells (D) $23 

SCARBOROUGH 


Generic Disks . . Cheap 1 

Creature Creator (D 

$19 

Moptown Hotel (D) $25 

Mastertype(D). . . . 

$23 

Indus GT Disk Drive 

Call 1 

Math Maze (D) .... 

$26 

Moptown Parade (D) . $25 

Mastertype(R). . . . 

.$27 


Spellicopter(D) . . 

$26 

Word Spinner(D) . . $23 

Net Worth (D) 

.$49 

Modem 

$109 1 

1 ELECTRONIC ARTS 

MICRO-LEAGUE 

SIERRA ON LINE 


Microbits Microprint |j 

Archon(D) 

$27 

SPORTS 

Dark Crystal (D) . . 

$25 

Interface 

$49 1 

Archonll (D) 

$27 

Micro-League 

Frogger(D) 

.$19 

MPP 1150 Microbits l| 

Cut & Paste W.P.(D) 

$35 

Baseball (D) $27 

Ultima 1(D) 

$23 

Printer Interface . 

$59 1 

Financial 


MICROPROSE 

Ultima 11(D) 

$39 

Mosaic 32, 48.64K . 

Call 1 

Cookbook (D). . . 

. $35 

Air Rescue 1 (D) $21 

Wizard & Princess (D)$21 

Rana 1000 Disk Drive $189 1 

Hard Hat Mack (D) . 

$23 

F 15 Strike Eagle (D) $23 

Wiz Type(D). ...... 

$23 

Sakata 13" Color 


I Music Construction 

Hellcat Ace (D) $19 

SPINNAKER 


Monitor w/Swivel 


1 Set (D) 

$27 

Kennedy Approach(D) $23 

Adventure Creator (R)$1 7 

Tilt Stand 

$225 

I One-On-One (D) . . . 

$27 

Mig Alley Ace (D) $23 

Aerobics (D) 

$23 

Wico Boss 

$12 

I Pinball Construction 

Nato Commander (D) $23 

Alphabet Zoo (R) . . . 

$17 

Wico Bat Handle . . . 

$19 

1 Set (D) 

$27 

Solo Flight (D) $23 

Delta Drawing (R) . . 

.$17 

Wico Three Way . . . 

$23 

P.O. 

Box 278 — Dept. AT • Wildwood, PA 15091 


I 'Ordering and Terms: Orders with cashier check or 

money order shipped 

immediately. Personal/companyl 

1 checks. allow 3 weeks clearance. No C O D s Shipping: Continental U.S.A.— 

•Orders under $100 add $3;l 

■ free shipping on orders O' 

ver $100. PA residents add 6% sales tax. AK, HI, FPO-APO— add $5 on all orders ! 

1 International Order Policy— No Credit Cards— add $15 or 15% of order whichever is greatest. Defective! 

1 merchandise will be replaced with same merchandise— NO CREDITS! 

Return must have authorization! 

I number (412) 361-5291. Prices subject to change without notice. 
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pressing the numbers you have assign- 
ed them. Play chords in any order and 
of any duration you want! Press [8] 
and you get no sound. 

So as you see, you can also use 
Guitar Tutor to play a simple chord 
accompaniment if you feel like tak- 
ing a break to sing a song while you’re 
programming. 

GUITAR TUTOR VARIABLE LIST 

TOPS 

BOT$ 

STRINGS 

FRETS Graphic patterns to draw 
box 

PATTERN(20)— Array holds DATA 
line numbers and is later used 
for sound numbers 
K— value returned from keyboard 
X— GOSUB 600 returns with X as 
a DATA line number 
TONIC— adjusted note (i.e., B # 
reads data from C natural) 

ACC— Accidental^ if natural, 1 if 
flat, 2 if sharp 

CHORD— 0 if major, 1 if minor, 2 if 
seventh, 3 if minor seventh 
LINE— saves line number to get 
sound numbers from 
F— counting loop 
A— current data 
FRET— vertical position while 
writing dots 
I— counting loop 
TIME— loop to allow notes to 
sound individually 
TONES(63)— array holds sound 
numbers and names in seven 
chord "memory” 

TONE— current location in the ar- 
ray TONES 

ONE— root of chord being put in- 
to "memory” 

THREE— major third of chord be- 
ing put into "memory” 

FIVE— major fifth of chord 
SEV— seventh of chord 
MINTHREE— minor third of chord 
Frank Imburgio and Grace Barry 
are the founders of Homespun Soft- 
ware in Setauket, New York. The 
company’s stated aim is to produce 
home applications software that is 
easy to use ; but not limited by its 
easiness. 

Listing on page 69 Q 
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Type-in “music construction ” « 

software 


w 0 

| 



Powerful and versatile “ music con- 
struction” program. You can easily 
compose songs with three-part chord 
backgrounds — or simply copy the 
notes and chord symbols from sheet 
music. This BASIC program runs on 
any Atari computer with 32K 
memory. Disk or cassette. 


Mm m ith The Musician, you 
% WL g can easily enter and 
Mm Mm hear playback of any 
▼ ▼ song on your Atari — 

with a full background of three-part 
chords. Only an elementary know- 
ledge of music is required. In fact, you 
can simply copy your favorite songs 
directly from sheet music. You set The 
Musician to play harmony chords by 
simply naming them — the program 
fills in the required notes! 

Type in Listing 1, checking it with 
TYPO II and SAVE it to either cassette 
or disk. Antic Disk subscribers will 
find a short demonstration song 


bonus file. Here’s how to use The 
Musician. 

USING MUSICIAN 

When you RUN The Musician, you 
will see an introductory screen for a 
few seconds as the program initializes. 
A music staff will then appear on the 
screen with a single red note. 

Use your joystick to move the note 
up and down on the staff. If you are 
working from sheet music, simply 
place the note in the same position 
you see it on the sheet music. To enter 
the note, press the joystick button. 
The note will turn white. Then The 
Musician will briefly play your chosen 
note and a new red note will appear. 

TIMED NOTES 

Placing your note on the staff just 
gives you the basic pitch. You must 
still set time values, indicate if a note 
is sharp or flat, and enter rests or dot- 
ted and sustained notes. 

You select these various note types 
by pressing keys on the Atari. Here is 


how it works. 

Whole notes W 

Half notes H 

Quarter notes Q 

Eighth notes 8 

Sixteenth notes 6 

Thirty-second notes 3 
Dotted notes 
Sustained notes S 

Sharp notes # 

Flatted notes B 

Natural notes N 

Rests R 


A little music information here: 
There are various "time signatures” 
possible at the start of a piece of 
music. In the most common types, 
4/4 (standard) and 3/4 (waltz), a 
quarter note would be held for one 
beat, half note is two beats and whole 
note is four beats. An eighth note is 
half a beat, sixteenth note is one- 
fourth of a beat and a thirty-second 
note is one-eighth of a beat. 

Dotted notes increase the time a 
note is held by half its normal value. 

continued on page 50 
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Rotate and zoom 3-D 
images in ACTION! 

by PAUL CHABOT 



quires ACTION! cartridge, disk drive 
and 48K memory. Antic disk sub- 
scribers can run VIEW3D.EXE with- 
out the ACTION! cartridge. Disable 
BASIC and use the L option from 
DOS 2. OS. Disk or cassette. 



Create 3-D wire-frame outline pic- 
tures in your Atari’s highest resolu- 
tions, Graphics 8 and Graphics 7+ . 
Magnify, shrink, rotate, and other- 
wise shift your view of the 3-D pic- 
ture easily and fairly quickly. Re- 


When Paul submitted View 3-D to 
Antic, we saw it was easily the 
largest ACTION! program any 
magazine had considered publish- 
ing. But in recent months, we have 
received so many letters from readers 
wanting ACTION! that we thought it 
was time for a monster example of 
programming in this powerful Atari 
language. 

Be warned: there are ten separate 
program listings, nine of which are 
dependent on and INCLUDEd into 
the tenth to form one main program. 
Because of the nature of ACTION! 
there is no TYPO II, so type patient- 
ly and carefully. The results will be 
well worth it. -antic ed 
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■■ here are different approaches 
■ to 3-D viewing. You can leave 
! I the viewing point (‘ ‘eye’ ’) fixed 
and rotate the object. Or you 
can think of the object as fixed and 
change the location of the eye. These 
are mathematically equivalent, but 
conceptually quite different to most 
people. 

Also, should the projection be per- 
spective or orthogonal? Where 
should the focus be placed? View 3-D 
will allow any combination of these 
variations and more. To manipulate a 
3-D frame quickly, you need faster 
number crunching than BASIC pro- 


vides. The answer is ACTION!, the 
cartridge-based programming lan- 
guage from Optimized Systems Soft- 
ware, which is becoming increasing- 
ly popular with serious Atari pro- 
grammers. 

TYPING IT IN 

View 3-D is one program, but it has 
been split into ten files. Listing 10, 
called VIEW3D, is the main file which 
INCLUDES the other nine. If you look 
at the beginning of listing 10, you can 
see the name of the other files. 

Type each file in the order they are 
INCLUDEd in Listing 10. Each subse- 
quent file shares procedures from 
previous ones, none may be compiled 
or run independently. You can partial- 
ly check your work by compiling pro- 
grams accumulatively in the order in 
which you type them. For example, 
GR78M may be compiled alone. After 
typing in MISC1, create a temporary 
third program which INCLUDES 


GR78M and MISC1. This third pro- 
gram, when compiled, will compile 
the first two, and so on. 

VIEW3D is too large to be com- 
piled and run from the ACTION! 
editor. When all your files are proper- 
ly typed in, clear the editor and, from 
the monitor, type: C “VIEW3D.ACT”. 
After the compilation is complete, 
type [R] and away you go. 

THE PROGRAM 

The first thing you should see is the 
menu screen. View 3-D alternates be- 
tween two screens — the menu screen 
and the view screen. The menu screen 



screen. One-key commands are acted 
upon immediately. No [RETURN] is 
needed. 

[B] Returns you to the menu at any 
time. 

[G] Switches you between GR. 7 + 
and GR. 8. GR. 7 + offers four colors 
(counting the background), changed 
with the [C] selection (below). 

[C] Alters the GR. 7+ color 
registers. The message line at the bot- 
tom will indicate the current color 
number (0-3), its current hue and 
luminence values, plus the word 
Default. 

The keys [C], [H], [L] increment the 



has command options and a disk di- 
rectory. The view screen shows your 
3D drawing. Shortly after the menu 
appears, the colors will alter and the 
program will switch to the view 
screen and display a simple 3-D ob- 
ject called ‘Plane” which is similar to 
Figure 1. 

THE COMMANDS 

With the exception of [D], any key 
pressed will take you to the view 


color, hue, and luminence. This can 
be used while in GR. 8. But the effect 
may be misleading because the GR. 
7+ registers and the current screen 
registers are being altered but not the 
GR. 8 default values. The [D] key re- 
sets all GR. 7+ registers to default 
values. These values are updated each 
time you load a data file. Also, none 
of your playing will affect the menu 
screen colors, since these are main- 

continued on next pase 
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tained separately. Any other key ter- 
minates this routine. 

[M] Magnifies the object. This.is ini- 
tially set at 4 and wraps to 1 when in- 
cremented past 9- You won’t see the 
effect until the picture is redrawn by 
pressing [SPACE], 

[V] Changes the view between per- 
spective and orthogonal. Perspective, 
which emulates our vision, takes into 
account the distance from the eye, 
whereas orthogonal is used in draft- 
ing and engineering. 

Figures 2 and 3 show the differ- 
ence between perspective and ortho- 
gonal projections. 

PREROTATE 

These selections let you rotate your 
object about any of the three X, Y and 
Z axes. The message line shows the 
values of rx (rotate X), ry (rotate Y), 
rz (rotate Z), and ri (rotational incre- 
ment). Each time the [X], [Y] or [Z] 
keys are pressed, the object rotates 
about the chosen axis in ri incre- 
ments. The rotations are about axes 
that pass through the focus point. 

The [I]/[J] keys increment/decre- 
ment the value of ri in degrees. 
Negative values of ri make rotations 
go in the opposite direction. 

POINT OF VIEW 

The following commands affect your 
dimensional view of the object. 

[3] Fix EYE/dist. The eye coor- 
dinates are controlled by your 
joystick. Selections [l]-[4] use the 
same joystick scheme: Left/right alters 
the X coordinate, up/down alters the 
Y, and up/down while holding the 
trigger alters the Z. In selection [3], 
left/right with the trigger pressed con- 
trols the distance. Press [SPACE] to 
draw your object from this new eye 
location. 

Remember that the eye coordinates 
are relative to the focus point (see [4] 
below) and only establish the view- 
ing direction in the orthogonal view. 
The eye-object distance is important 
only in the perspective view. Keep the 
distance large to avoid distortion. 

[4] Change FOCUS. The focus is the 
point in space at which the eye is aim- 
ed and through which all the rotation 
axes pass. It is normally on or near 


the object being studied and will be 
mapped to center screen (cx,cy). 
Move the flashing dot with your joy- 
stick. More importantly, watch its co- 
ordinates. Use [SPACE] to set your 
choice. 

[5] Change CENTER. This alters cx 
and cy, shifting the object. These are 
actual screen coordinates (0,0 is the 
upper left). Use [SPACE] to set your 
choice and see the effect. 

[O] Resets the center, eye, focus, 
magnification, and prerotation values 
to defaults used at start-up. 

I/O 

[D] Lists up to 22 data files in the 
menu window, assuming they have 
“.V3D” extenders. This is also done 
automatically at start-up and after 
each successful save. 

[L] Loads a data file from disk. 
Answer the input prompt with a file- 
name only. The program supplies the 
“D:” prefix and a “.V3D” extender. 
Upon hitting [RETURN] you’ll see the 
full filespec. Press [L] again to ac- 
complish the load. Any other key will 
abort the process. 

[S] Saves data to a disk file. The pro- 
cess is the same as the above [L] load. 

[P] Outputs to your printer. After 
pressing [P] you may choose to print 
the picture data [D] or the picture [P\ 
The picture is produced by a short 
screen dump for a Gemini 10X. You’ll 
get best results by printing the GR. 8 
picture. 

To alter the printout procedure for 
your own printer, examine the Prnt 
procedure in the PRINTIO.ACT file 
and adapt accordingly. The st array 
contains printer control codes 26, 51, 
16 which, on the Gemini, set the line 
feed to 16/144 inches. In the pre ar- 
ray, the 27, 75, 192, 0 mean print 
normal-density graphics (60 
dots/inch) using 192 + 256*0 char- 
acters. If you have an Epson FX-80, 
for example, you need only change 
the line feed commands: Change the 
16 to 24 in the st array, and later in 
the procedure at st(3)=l6. Also, 
change the 20 to 30 in st(3) = 20 

3-D DRAWING 

It’s not easy to draw in 3 dimensions. 
The easiest way to learn is simply to 


try it. Concentrating on the changing 
coordinates in the message line may 
be easier than watching the dots and 
lines on the screen. 

However, before you start, you may 
wish to save the object currently in 
memory. The process is easier to 
understand if you use the EDIT com- 
mand, [2], to display a blank screen. 
Each time you press the [SPACE] bar, 
the screen will step through the draw- 
ing process of the object in memory, 
showing you how to construct a 
drawing. 

To get started on your own, press 

[O] to use default values. To create a 
blank screen, press [2] then [1]. The 
joystick moves a flashing dot, whose 
coordinates appear in the bottom line. 
Position the cursor where you want 
it, and establish that point by press- 
ing the [SPACE] bar. Your current up- 
dated point number will be displayed 
in the bottom line. Next, move the 
cursor to your second location, press 

[P] to switch from “Plot” to “LineTo” 
and press [SPACE] to draw the line. 

For starters, keep it simple, or try 
editing a sample drawing. (The pro- 
gram can take up to 200 data points.) 
To edit a previous drawing, press [1] 
to ADD points and lines. As you step 
through the drawing by pressing 
[SPACE], you can change any of the 
values at any point, or you can begin 
adding to the last points. You can, of 
course, save your object to disk at any 
time. 

DATA STORAGE 

At this point, you need to understand 
a little about how data for your 3-D 
object is stored. The INTeger array P 
contains all the information in the 
following format: 

P= [n:xyz:d:xyz:c: :xyZ:c: 

] 

P(0)=n is the number of data 
points in your object. The next four 
integers contain EYE data. The first 
three indicate the direction away from 
the FOCUS, and the fourth gives the 
distance. 

The following four integers contain 
the three space coordinates of the 
focus point and a presently unused 
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value. These nine integers are follow- 
ed by n data sets for your object. Each 
is made up of four integers contain- 
ing the three space coordinates for a 
point and a fourth coded message. 
The encoding of the fourth integer is 
given by c= color + l6*p, where 
p = 0 for “LindTo” and p = 1 for “Plot”. 

SAMPLE DATA 

You can enter the data in figure 4 in 
the ADD mode to create a house with 
windows and a red chimney. Press 
[2], then [1] to clear memory. Now 
use your joystick to get the coor- 
dinates in the message line to match 
those of the first point in the exam- 
ple. Hit [C] and [P] as needed and set 
the data by hitting [SPACE] . Now do 
the same for the second point in the 
example, etc. 

You can even do a little at a time. 
Just save the portion you’ve done. 
Next time load in this file, press [1] 
and continue from where you left off. 
A couple of examples will show you 
how to read the notation. “10 20 
15-.P2” means to Plot (10,20,15) in 
color 2. Whereas “20 20 30:L3” 
denotes a color 3 LineTo (20,20,30). 
Each example has suggested EYE and 
FOCUS data. 


PERSPECTIVE PROJECTION 



ORTHOGONAL PROJECTION 

Figure 3 



Longtime Antic contributor Paul 
Chabot is a professor of mathematics 
and computer science at California 
State University, Los Angeles. He 
wrote “Splash In ACTION!” in our 
April 1985 issue. 

Listing on page 54. 
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COMPUTER PALACE we know atari! 

M T ■■ ■ ■■ ■ 1 CALL US AT (503)683-5361 FOR INFORMATION 

TRJVS«t7i^Q|!|ST 


INDUS GT DISK DRIVE 

* Free Software 

* Double Density 

* 1-Yr. Warranty 

Our Most Popular Drive! 

We recommend and sell more of these drives 
than any other. It's so quiet that you'll 
probably forget you are using a disk drive. 
Flip-up dust cover, LED readout, and FREE 
SOFTWARE (DOS XL, Word processor, Data- 
base, Spreadsheet, Programming book by 
Datamost ). . This package is hard to beat! 

New Low Price $259.95 


GAMES 



EDUCA- 
TIONAL 

Hundreds ot Titles Please 
call us (503) 683-5361 

BOOKS 

Misc: 

6502 Programming 18.95 
6502 Subroutines 17.95 
Advd Pro Tech Al 14.50 
Advent w/Alan 14.95 
Assem Lan Progr 15.95 
Basic Alari Bas 15.95 
Basic Alan Kids 12.95 
Best Antic w/Dsk 24.95 
| Elementary Atari 14.95 
Tech. User Notes 26.90 
Assembler 15.95 
Basic Fast & Bel 19.95 
Basic Source Bk 12.95 

For Kids 8-80 

Games & Rec 
Graphics & Arc 
Playground 

Roots 

Sound & Graphics 10.95 
Users Encyloped 19.95 
W/55 Programs 14.50 
Compute: 

2nd BK Mach Lan 14.95 
j F80 Atari Graph 


15.95 

14.95 

16.95 
9.95 

14.95 


12.95 


T FBO Atari Games 12.95 

jFBO Atari 12.95 

Great AOV Games 12.95 
2nd Bkol Alan 12.95 

3rd Bkot Atari 12.95 


Protect Your 
Equipment 


Deluxe 

DUST COVERS 


Custom fitted, attractive leather brown color: 

• ATARI 400, 800, 600/800/1200XL, New 
XE&ST, 410, 810, 1050, 1025, 1027, CX85 

• EPSON, GEMINI, PROWRITER printers 

• INDUS, RANA, PERCOM. TRAK disk drives. 

Additional covers ordered 
at same time 


ONLY 


$8.95 


EACH ONLY 


$7.95 


EACH 


48K Disk 
$39.95 

* Program Covers 
4 Disk Sides 



• Outsmart Your Friends 

• Outwit The Dragon 

• Join The Quest 


A new concept in computer gaming. Intellectual challenge, strategy and arcade action. Each 
player assumes the role of a lord with a questing party of three characters. Complete the 
quest, earn the most gold by answering questions and battling the dragon. Win the favor of 
the king and thus, the game. 

• Utility Disk: 1000 Additional questions plus create your own... $24.95 


FREE CATALOG 

with any order ... or send SI (refundable with 
first purchase) 


You will receive the most com- 
prehensive reference catalog 
available. Containing hun- 
dreds of software and hard- 
ware listings with illustrations 
and descriptions, our main 
catalog wiil give you the 
answers you need. Join our 
mailing list and receive free 
flyers with updates and special 
offers. 



IF YOU DON'T HAVE OUR 
CATALOG... YOU’RE 
MISSING OUT! 


NEW! COMPUTER PALACE B.B.S. 

We are now running a bulletin board system as a service lo our modem m, 

customers You will be able to place an order with us by using your J/ n 

modem just follow the screen instructions We will be fealuring download 

tiles such as public domain games, utilities, and program demos We will P . r 

have a section about the latest Atari products, news, and rumors , and tor those frustrated 

adventurers, there will even be a section of hints and answers tor the whole Atari adventure 

realm 1 

1-503-683-7454 

(6:00p.m. lo 8:00a.m. PST) 


Give us a call! 


Peachtree Software 


Now, one of the most popular accounting systems is availale for Atari. Back to Basics 
Accounting System is a double entry, accrual accounting system consisting of three 
interactive packages for the small business: General Ledger, Accounts Receivable and 
Accounts Payable. A powerful system, it includes automatic posting, system generated 
mailing labels and password security. For the non-accountant, It comes with one ot the 
most comprehensive manauals we have seen. For the expert, it will finally put your Atari 
in business. Requires 2 drives. 48K Disk-System Package... S195.00. Each... $95. 00 



$279.00 


+ FRT 


A "best buy" ! Features "square dot" print 
head with the best print quality for the money. 
130CPS, bi-directional, graphics, and EPSON 
compatible. Plain or Pin-fed paper 


BUSINESS 

Assm Editor 31.50 
Monkey Wrch I 
Atariwriter 
Letterperleci 
Spell Wizard 
ABC Compiler 
B/Graph 

Peachtree G/L 
Peachtree A/P 
Peachtree A/R 
Home Accountant 67.50 



Syntile 
Syncalc 
Syntrend 
Synstock 
Home-Calc 
Mac/65 
Action 
Basic XL 
Writer's Tool 
Tele-Talk 
Financial Cookbk 
Basic Cartridge 


39.95 

r Intrtace 

64K lor 600XL 79.95 
Relax 99.95 

«:» SPECIALS 

35.10 Rally Speedway 19.95C 

35.10 Shamus 

87.90 Pacific Cst Hwy 
87.90 Crosshre(T- ) 

87.90 Match Racer 

87.90 

44.90 Bandits 

44.90 Jawbreaker 

29.90 Eastern Front 


Graphic Gener 22.50 Canyon Clmb(T— D) 9.95 


Microstt Basic 2 55. 

PARTS & 
MISC 

Disk Cleaner 13.95 
800 Power Supply 24.95 


Pool 400 14.95C 

Speedway Blast 14.95C 

Repton 9.95D 

Wayout 9.950 

Threshold 9.950 

Stellar Shuttle 9.95T 


10 Disk Mailers ' 6.50 ol W° r 17.95C 
OGenenc Disks 13.95 Deluxe Invaders 17.95C 


17.95C 

Miner 2049er 17.95C 

Ch °P li,,er 19.950 

mdusDrStacker 19*95 Lords ol Karma 9.950 


Ten Key Pad 39.95 

Touch Tablet 54.95 

CompuServe 39.95 


New ATA RI 130/520ST Computers 



1 28K-S399/51 2K-S599 

The current flagship of the Atari Family has 
arrived, utilizing the speed ot the Motorla 68000 
CPU. With 128K or 512K, you will have power at 
prices you won’t believe. And with a mouse, 
pull-down menus, windows, icon graphics and 
cut and paste features that allow you to integrate 
spreadsheet, text and graphic files; creative 
solutions have never been easier. The quantities 
are limited, so place your order now to get yours 
as soon as possible. 


DISK NOTCHER 
SPECIAL! 



One of the most versatile data-base programs available. 

tngpor New Enhanced Version 2.0 

Includes: 


lViijlSjH>>) 


Now use both sides of 
your diskettes 

Simply place the disk against the 
built-in stops and squeeze 


• LIGHTNING FAST RETRIEVAL 

• FAST SORTS ON ANY FIELD 

• SUPPORTS UP TO 4 DRIVES 

• SINGLE OR DOUBLE DENSITY 

• STORE ABOUT 1200 RECORDS 
PER DISK SIDE IN DOUBLE DENSITY 

• MUCH MORE! 


48K Disk 

$49.95 


• ON-SCREEN PROMPTS 

• HELP SCREENS 

• STATE ABBREVIATION TA8LE 

• PRINT LABELS 1, 2, or 3-UP 

• REDEFINABLE FIELOS 

• MERGE-CREATE COMBINATION FILES 

• OELETE DUPLICATE-AUTO or MANUAL 



j jumbo banner? Simple! ! Make it 30 feet lo 

■ With only a tew key strokes, you can t 


New! Mail Merge Utility $19.95 

Now you can use your Super Mailer + records with Atarwriter and Letter Wizard. 
Use names and addresses to create form letters. Input special characters into the 
word processing programs to tell Super Mailer+ where to put the information. It s 
as easy as 1...2...3! 



S from otKer graphics program 


from other graphics programs. Swirling ani- E 
' mations that you can freeze for background z 

feigns 48K D 339 S Q j 


COMPUTER 
RAIACEH 


OPEN M-F. 9-6 Sat. 10-4 (Pacific Time) 

21 60 W. 1 1 th Avenue Eugene, Oregon 97402' 



USE YOUR CREDIT CARD & CALL 


Toll Free 1-800-452-8013 

WSS5SK')\ * ORDERS ONLY, PLEASE ★ 

* t\ There S " e V6r 3 penalt * ,or using Y° ur creilit card! 

For Information, Call (503) 683-5361 


SHIPPING INFO: Minimum $2.90 Ground, $4.75 Air. Actual 
Cost depends on weight. Call (503) 683-5361 for information. 
WARRANTY INFO: Everything that we sell is warranted by 
the manufacturer. If any item purchased trom us fails to per- 
form properly when you receive it. call us at (503) 683-5361 
so that we can assist you. No returned merchandise accepted 
without authorization. Defective software will be replaced 
with another copy of the same program, otherwise, no soft- 
ware is returnable. 
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TURBO TYPO II 

Speedy three-line enhancement 


by DAVID McLAUGHLIN 


Changing three lines in TYPO II 
gives assembly language speed to 
Antic’s program typing checker. (See 
Listing Section.) TURBO TYPO II 
will work on all Atari computers of 
any memory configuration. 


When Andy Barton started working 
on TYPO II, he wrote it as a machine 
language vertical blank interrupt 
routine which fit in Page Six of 
memory. Folloiving a suggestion 
from Bill Wilkinson of Optimized 
Systems Software — who wrote the 
original TYPO — we decided to 
switch to an all-BASIC TYPO II. An- 
tic felt that novices, who most needed 
TYPO II, would have a much easier 
time if they didn’t have to type in a 
lot of data statements. 

We also wanted a simple program 
that the widest range of readers could 
have fun tinkering with. (See the I/O 
pages in both the April and May 
issues for some earlier enhance- 
ments.) Judging by the many thank- 
you letters from new Atari users and 
the large number of improvements 
that more experienced readers have 
sent in, Antic certainly succeeded in 
both goals, —antic ed 

TURBO TYPO II 

TYPO II is an enormous help, but it 
does have an annoying drawback — 
the longer the line, the more time re- 
quired to check it. My object was to 


speed up TYPO II while producing 
the same two-letter code checksums. 

I noticed the slowdown came from 
line 32150 of the original code. This 
line was an elegant solution, creating 
a unique code that also checks for 
correct letter order (i.e. distinguishes 
between TO and OT). 

Therefore, the best way to speed up 
TYPO II was to write the line 32150 
procedure in machine language. Thus, 
I created Listing 3, TYPO II, in ML. 
But you do NOT need to type this 
listing to create an enhanced TYPO 
II. It is included primarily for your 
information. 

TWO CHOICES 

I have provided two ways to create the 
necessary enhancements. Listing 1 is 
all you need to add to the current 
TYPO II. If you are one of those brave 
souls who doesn’t mind typing in a 
lot of special and inverse characters 
then simply use your old TYPO II to 
type in Listing 1. When done, press 
[BREAK] then SAVE or LIST your 
enhanced TYPO II to disk or cassette. 

If you’d rather not take a chance on 
typing tricky characters, then use your 
old TYPO II and follow these instruc- 
tions in exactly the following order. 

1. With TYPO II running, type in 
lines 32015 to 32025 from 
Listing 1. 

2. Type in Listing 2. 


3. After Listing 2 is successfully en- 
tered, press [BREAK] to stop 
TYPO II. 

4. Type RUN and line 32026 from 
Listing 1 will be created for you. 

5. When the READY prompt ap- 
pears type GOTO 32000. 

6. Type in line 32150 from Listing 
1 and your enhanced TYPO II 
is complete. 

7. Press [BREAK] and save the new 
TYPO II to disk or tape by 
typing: 

LIST “DTYPO II”, 32000, 32220 or 
LIST “C:”, 32000, 32220. 

If you want a SAVEd version then 
type NEW and then ENTER the new, 
enhanced TYPO II and then SAVE it 
to disk or tape. 

SOURCE CODE 

Listing 3 was created with the Atari 
Assembler/Editor cartridge. Of 
greatest interest is the use of three 
bytes to calculate TYPO II’s variable 
ANS. 

Normally, in this type of applica- 
tion, the programmer returns the 
value of ANS back to BASIC through 
memory locations 212 and 213 (hexa- 
decimal $D4 and SD5) as the Atari 
creators originally planned. However, 
ANS can only have a maximum value 
of 65535, the greatest value two bytes 
can hold. 

continued on next page 
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The original TYPO II ’s design allows ANS to become 
larger than that after the length of LINES becomes greater 
than about 20-30 characters. But the use of three-byte 
arithmetic is sufficient to hold the highest possible values 
of ANS. 

A note of caution: TYPO II in ML uses three Page Six 
memory locations, 1789-1791 (hexadecimal S6FD-S6FF). 
Any program that accesses these three locations will be 
in conflict with the enhanced TYPO II. But since they 
are the last three locations on Page Six, there should be 
little problem. 

Listing on page 75 


□ 



HIGH PERFORMANCE 

PRINTER INTERFACE 

Only $69.95 

Atari 850 compatible. 

Use on Atari 400, 600XL, 

800, 800XL, 65XE, 130XE. 

Power-on LED. 

Ribbon cable connector. 

External power supply. 

Page formatting independent of software. 
DIP switch selections of line feed and 
English translation of control characters. 

TURBOPRINT/GTA . . . $99.95 

All the above features plus . . . 

Optional 16K or32K plug-in buffer. 

Prints Atari graphic characters. 

DIP switch selection of printer. 

Interfaces for Atari. Commodore and Apple. 



415 - 651-2970 


FOR ATARI *400/800/1200/600XL/800XL* 


eft© 


m l s@ss 


For ATARI 800XL, 600XL with 64k. 
Replacement operating system to run the 
vast majority of all ATARI software. No 
translator or disk to load! 

Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 

One touch access to extra RAM, all RAM. 
One touch BASIC on. 

Easy plug in installation. 

NOW INCLUDES DUAL OPERATING 
SYSTEM BOARD! 

‘Includes MacroMon XL which is an ex- 
cellent, unique monitor for beginner and 
pro alike— written especially for the BOSS. 
$79.95 for 800XL/600XL with 64K‘. 


AU 

M 


Hen 

Iacroware 



diskwiz-ll 


An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKIDATA, M-T SPIRIT, 160L, 
KXP-1090, DM P-80, ISD 480, 
SEIKO/AXIOM GP550A. 

Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Works with or without BASIC, 
ED/ASM, PILOT, LOGO. Calendar 
generator. Horizontal format allows 
text to be continued in same direction. 
Change widths, height, center and 
much more from the keyboard or your 
program. Special handlers for PAINT, 
Micro-Illustrator, LOGO, Micro- 
painter, etc. Includes LISTER program 
for inverted and special characters plus 
demos and ideas. $29.95* 16K Disk- 
All Interfaces. 


Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 

Repair or change of linked DOS2 or 
OSA+2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29.95 16K Disk. 

Send s.a.s.e. for update info. 

‘TERMS: U.S. funds; check or M.O. 

add $2.50 shipping/handl- 
ing add 6% CA — 6.5% LA 
COUNTY add $3.00 for 
C.O.D. No charge cards ac- 
cepted add. $2.50 foreign 
orders normally out within 
48 hours. 


P.O. BOX 2205/REDON DO BEACH, CA 90278 
(213) 376-4105 

* Trademark of Atari, Inc. 
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TYPING G.U.P. 

Type in Listings 1 and 2. Check them 
carefully with TYPO II and make sure 
no lines have been missed. These pro- 
grams use machine language routines 
which could lock up your computer 
if mistyped, so be sure to SAVE backup 
copies before RUNning them. 

Listing 1 will create an AUTO- 
RUN.SYS file on disk. RUN the pro- 
gram and at the prompt insert a for- 
matted disk with DOS 2. OS, press 
START and G.U.P. will be written to 
disk. (Note: because of the G.U.P. file 
structure, do NOT use DOS 3 ). Now, 


raphics Utility Package 
(G.U.P.) is a BASIC pro- 
gram that creates a boot 
file. When this file is in- 
stalled in your Atari’s memory several 
new and powerful graphics com- 
mands are available to you in the form 
of USR calls. 

G.U.P. features include: 

• PLOT and DRAWTO about 3-5 
times faster than normal. 

• Circles and boxes drawn at high 
speed. 

• Several lines drawn at once for 
high speed. 

• Access by a 400 or 800 to the 4 
new XL graphics modes. 

• Choose solid or multicolor 
patterns. 

• Mix text with graphics. 

• A simple 128 color rainbow 
command. 

• Direct commands in GTIA 
modes. 


G.U.P. the 
GREAT 


Fast graphics 
power from BASIC 


by DAREK MIHOCKA 


Speed up your BASIC graphics com- 
mands and add powerful new 
ones — including circles, squares and 
patterned fills. Atari 400/800 owners 
can no w access graphics commands 
available only on the XLs. Requires 
a disk drive and will run on all Atari 
computers with 48K memory. 


continued on next page 
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boot the disk, the screen will change 
color and G.U.P. will be in memory. 

DEMONSTRATION 

To test G.U.P. , LOAD Listing 2 into 
memory and RUN it. Listing 2 is a 
demonstration program that will take 
G.U.P. through its amazing paces and 
provide examples of how to use G.U.P. 
in your own BASIC programs. 

Lines 40-180 of Listing 2 are essen- 
tial to any BASIC program using the 
G.U.P. commands. These lines deter- 
mine the starting locations of the dif- 
ferent routines and store them in com- 
mand variables. You can renumber 
them for your convenience, but they 
must be executed before any G.U.P. 
commands are given. 



LINE, BOX, CIRCLE, TEXT, RAN- 
DOM, and Cl 28. Here is a description 
of each: 

GRAPHICS x — Establish graphics 
mode. Any one of the 16 graphics 
modes can be selected. This allows a 
ROM B Atari to access the 4 new ROM 
C graphics modes with one com- 
mand. To access the 160X192 4 col- 
or mode (GR.15 on XL computers), 
use the command: 


LOCK-UP 

G.U.P. is really a series of USR calls, 
which are assembly language routines 


A = USR(GRAPHICS, 15) 



that are accessed from BASIC. Com- 
puter newcomers, who may be a lit- 
tle wary of USR routines should read 
last month’s “USR Routines” by Ernie 
Negus. 

When using assembly language 
routines, there is always a good pos- 
sibility of computer lock-up — your 
keyboard no longer responds and 
there’s nothing to do but turn off your 
computer and start all over again. 
Lock-ups can occur with just one 
mistyped character. They’re time- 
consuming and annoying and you 
may lose unsaved data. But they won’t 
harm your machine, so don’t be afraid 
to experiment. 


SET a,b,c,d — Choose patterns. Each 
parameter contains color data for 4 
pixels necessary for the pattern of col- 
ors. (See the explanation later on.) To 
set the colors to simulate the BASIC 
command COLOR 1, use: 

A = USR(SET,85,85,85,85) 

PLOT x,y — Same as BASIC’s PLOT. 
Use: 

A = USR(PLOT,X,Y) 

DRAWTO x,y— Again, the same as 
BASIC’s DRAWTO. Use: 

A = USR(DRAWTO,X,Y) 

LINE xl,yl,x2,y2— Similar to 
DRAWTO, except that the first 
parameter is the starting pixel. For ex- 
ample, to draw lines from pixel 0,0 
to 10,5 to 20,3 use: 


G.U.P. COMMANDS 

G.U.P. has 10 separate commands: 
GRAPHICS, SET, PLOT, DRAWTO, 


A = USR(LINE,0,0,10,5,20,3) 

The DRAWTO and LINE commands 
can have more than one parameter. 


That is, if 5 pairs of coordinates are 
given, then a line will be drawn from 
the first to the second, then the se- 
cond to third, and so on. This saves 
time and memory. 

BOX xl,yl,x2,y2— This will draw a 
filled-in box whose opposite corner 
coordinates are (xl,yl) and (x2,y2). A 
10 pixel square box is draw with: 

A = USR(BOX,0,0, 10,10) 

CIRCLE x,y,r — this draws a circle of 
radius r pixels at location xl, yl. This 
command works about 30 times 
faster than any BASIC algorithm I’ve 
tried. A large circle in GR.15 is drawn 
by: 

A = USR(CIRCLE,79,79,75) 

TEXT x,y,“abcd..”,l — this will print 
out the given string of length 1 in 
graphics modes 4,6 or 8 at co- 
ordinates x,y. This allows easy mixing 
of text and graphics. It should be used 
in a 2 color mode to make the letters 
readable. To put the word ANTIC in 
the upper left corner of the screen 
use: 

A = USR(TEXT,0,0,ADR 
(“ANTIC”), 5) 

Repeating the command will erase the 
word and restore any graphics that 
were underneath. 

RANDOM— This command simply 
puts random colors in the color pat- 
tern. The command is: 

A = USR(RANDOM) 

C128 d,r— This produces a 128 col- 
or rainbow display for the given dura- 
tion (d in l/60ths of a second) in the 
given color register (r). R is determin- 
ed by subtracting 704 from the loca- 
tion of the color register. For exam- 
ple, to make a rainbow of the 
background (location 710) for 10 
seconds use: 

A = USR(C128,600,6) 

VARIABLE REGISTERS 

Four variables are established as 
registers in G.U.P. 

CIRF is a variable used to switch 
between empty-circle drawing and 
filled circles. POKE CIRF,0 for empty 
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circles or POKE CIRF,1 for filled ones. 

Memory location 208 is used with 
the command GRAPHICS. Since 
G.U.P. can only plot up to a co- 
ordinate of 255,191, the co-ordinates 
from 256,191 to 319,191 in graphics 
mode 8 cannot normally be access- 
ed. By poking an 8 into 208, the co- 
ordinate plane is shifted over 64 pix- 
els and A = USR(PLOT,0,0) would ac- 
tually plot at 64,0. 

The memory locations SETCOLOR 



to SETCOLOR + 8 are values that are 
copied into memory locations 704 to 
712 when a GRAPHICS command is 
executed. By poking into these loca- 
tions, the default colors of the screen 
can be changed, as they already are 
in G.U.P. For example, in graphics 
mode 0, to change the screen color 
to black, a POKE 710,0 is run. To set 
G.U.P. to make the screen black every 
time a GRAPHICS command is given, 
do a POKE SETCOLOR + 6,0 since 
710 = 704 + 6. 


SET COMMAND 

One of the best things about G.U.P. is 
that it doesn’t just draw in solid col- 
ors. A 1x4, 2x4, 4x4 or 8x4 color pat- 
tern is stored at memory locations 
COLOR to COLOR + 3 The size of the 


pattern is determined by the graphics 
mode. This is because text modes use 
one byte per character, GTIA modes 
use one byte to display 2 pixels, 
4-color modes use one byte for 4 pix- 
els, and the 2-color modes can store 
8 pixels in a byte. 

The pattern can either be POKEd 
in, or put in with the SET command. 
This way circles can be drawn in a 
checkerboard pattern, lines can be 
dotted, and more. 

The formula for determining the 
parameters to use in the SET com- 
mand is quite simple. Just like BASIC’s 
COLOR command which selects one 
of the 4 color registers for plotting, 
each one of the 4 parameters passed 
in the SET command determines the 
color registers for a 4 x 1 array of pix- 
els in a 4-color mode, 8 x 1 in a 2 col- 
or mode, 2x1 in a GTIA mode. 

Using 2 -color modes 4, 6 and 8, an 
8x4 pattern can be set up. This means 
that during PLOT, DRAWTO, LINE, 
BOX, or CIRCLE, the pixels will be 
plotted so that if the whole screen is 
filled up it will be made up of little 
8x4 boxes of the same pattern. By 
making the pixels alternate from black 
to white, a very fine checkerboard 
pattern is made as follows: Let 0 repre- 
sent a pixel in color 0 and a 1 repre- 
sent a pixel in color 1. The pattern is 
therefore 


01010101 

10101010 

01010101 

10101010 

This pattern represents 4 binary 
numbers. In decimal they are 85, 170, 
85 and 170. Therefore the command 
to give is: 

A = USR(SET,85,170,85,170) 

If you just want to plot with color 
1, the whole pattern would be l’s and 
the four numbers would each be 255 
(11111111 in binary). Similarly, if you 
want to plot with color 0, use the 
number 0 four times. 

In a 4-color mode, 4 colors can be 
used so each pixel must be repre- 
sented by two bits: 00, 01, 10 or 11. 
This is why only 4 can be used in one 
byte. Similarly, in a GTIA mode, 16 
colors are possible, therefore 4 bits are 


required per pixel and only 2 pixels 
fit in one byte. 

In a text mode, 0, 1, 2, 12 or 13, 
the four numbers represent a block of 
1x4 characters. Each number is the 
ATASCII code of the character. 

If you wish to POKE these values 
instead of using the SET command, 



locations COLOR to COLOR + 3 are 
where the four parameters of the SET 
command go and can be POKEed 
directly. 

FEEL FREE 

Luckily, you don’t really need to 
understand any of this. Simply try out 
different numbers in the SET param- 
eters until you see what you like. This 
holds true of all of G.U.P. Many of 
these routines may be placed in 
strings for those more advanced pro- 
grammers. Feel free to experiment. 

Darek Mihocka placed in the top 10 
in three nationwide Canadian uni- 
versity math and physics contests. 
He’s a member of the Toronto Atari 
Federation and a licensed glider 
pilot. 

Listing on page 68 □ 


June 1985 
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Same of the month 




In Australia there are more men than 
women and more cows than men. To 
keep the cows under control, ranch- 
ers use helicopters. Your helicopter is 
supposed to scare the cows into their 
holding pen. 

In case you’ve never buzzed a 
bovine with a helicopter before, you’ll 
need some advice. As you maneuver 
your joystick-controlled copter closer 
to the herd, the animals get increas- 
ingly skittish and move away from 
you. Steering heifers into a corral isn’t 
easy. 

While patiently waiting for you to 
get airborne, the cows move random- 
ly. Then after all of the cattle have 
been packed into their pen, the gate 
will close. You must return the copter 
to the landing pad for a full score. 

But if you run out of fuel, your heli- 
copter will crash and kill some inno- 
cent cows. 


USING THE PROGRAM 

To get this game off the ground, type 
in Listing 1, check it with TYPO II, 
and SAVE a copy. When you RUN 
Helicopter Roundup, you’ll have to 
wait while the screen blanks for in- 
itialization (don’t panic). Then you’ll 
see the game. 

You can [SELECT] the number of 
cows to herd, and you can refuel dur- 
ing play by positioning the copter 
over the landing pad and pushing the 
joystick trigger. 

The game continues indefinitely 
until all cows are controlled or you 
crash. 

When he’s not rounding up redefined 
cow characters, Walt Bulawa is an 
application programmer for the 
medical field. 

Listing on page 71 E3 



Cows? Helicopters? In your Atari? 
You bet! This BASIC action game 
challmgesyou to round ‘em up from, 
the air. Works on all Atari computers 
of any memory configuration. 

Disk or cassette. 
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A 

ATARI’ 


Vastly SUPERIOR to any translation programs 
available! FOR ATARI 
1200XL/600XL/800XL with 64K. 

(Please specify computer model number!) 


A A 

ATARI 1 ATARI 1 


THREE NEW PRODUCTS! 
THE "SUPER PILL"! 


A 

ATARI* 


$69.95 (Rom) 
$49.95 (D or C) 


THE 

XL “FIX ”! 9 


$69.95 (Rom) 
$49.95 (D or C) 


The Atari XL series computers represent power, sophistication, and 
flexibility virtually unrivalled in todays Home Computer Market. 


Exactly the same as the WORLD'S leading cartridge backup 
device THE PIU! . . except it's even simpler to operate, it's 
SWITCHLESS! Excellent for families having young children. Totally 
eliminates opening computer doors and switches. THE “SUPER PILL"! is 
the most advanced state of the CARTRIDGE BACKUP device available 
today. It is totally compatable with all ATARI computers and all programs 
backed up by the original “PILL"! Only $79,95 plus $4 shipping and 
handling. 


With “approximately" 30-40% of existing software being “incom- 
patable", a real, and serious problem exists. Because of this we 
have developed THE XL “FIX"! 

ADVANTAGES over cheaper “translation products": 

1. The XL “FIX"! is capable of fixing more software ... an estimated 
30% more software! 


THE "PROTECTOR/SILENCER"! 

The "PROTECTOR"! is a disk and hardware modification (no 
soldering) for Atari 81 0, 1 050, and Indus GT disk drives that will allow you 
to write true BAD SECTORS wherever you wish (not to be confused with 
ridiculous speed control or tape jerking schemes!). Powerful disk 
program finds hidden directories, scrambles existing directories, fast 
maps, hex conversions, disk dupes, and much more! 


2. The XL “FIX"! is available in DISK, CASSETTE, and now ROM! 

3. XL “FIX"! versions fix ALL THREE types of software (Disk - Cassette - 
and Cartridges!) 

4. The XL “FIX"! (disk a cassette) adds OVER 4K of usable RAM to your 
computer (anyone using Data bases or Word processors will really 
appreciate this feature!) 

5. You never have to hold the OPTION button down on 600XL or 
800XL computers! 

6. VERY IMPORTANT! You need to load the XL “FIX"! only once . . . you 
can change disks, cassettes, or cartridges without rebooting the XL 
“FIX"! each time (disk or cassette)! 

7. The ROM version is instantaneous upon computer power up, has a 
high speed cursor, is instantly switchable to your original operating 
system, will work with 16K 600XL's, and more! 

The XL “FIX"! another SUPERIOR product! 64K required! 

DISTRIBUTOR/DEALER inquires welcome 


The "SILENCER"! quiets your drive tremendously (eliminates the 
LOUD grinding noise when you read a bad sector!), PLUS it allows you to 
WRITE TO BOTH SIDES of any disk WITHOUT cutting or notching the disk! 
Both for only $49.95 plus $4 shipping and handling. 

THE "COMPANION"! 

An amazing device that will enhance the capabilities of the 
XL “FIX"! or Atari Translator. It will allow you to de-select BASIC (no more 
need to hold the OPTION button while loading programs on the 600XL's 
and 800XL's), and it will allow you to de-select the DIAGNOSTICS (no 
more bad loads because of the DIAGNOSTICS jumping into the middle 
of your program load routine!). Installation is simple (10 minutes) and re- 
quires NO soldering! Only $29.95 plus $4 shipping and handling. 

DISTRIBUTOR/DEALER inquiries welcome. 

Our other fine products include THE “PILL"!, XL “FIX"!, “IMPOSSIBLE"!, 
“METAMORPHOSES"!, and “REMOTE"! 

Mastercard-Visa-Money 
Order or Cashiers Check. 

Phone orders: 


Mastercard-Visa-Money 
Order or Cashier Check. 
Phone (716) 467-9326 
Please specify computer 
model number! 


Send $49.95 ($69.95 for Rom) 
plus $4 shipping and handling 
(N.Y.S. residents please add 7%) to: 

COMPUTER SOFTWARE SERVICES 
P.O. Box 17660 
Rochester, New York 14617 


(716) 467-9326. 

Atari is a TM of Atari Inc. The 
“METAMORPHOSES"! is a TM 
of Computer Software 
Services (division of S.C.S.D., 
Inc.) 


A 

ATARI- 


For years they said it couldn't be done . . . 


THE 

“IMPOSSIBLE”! ® ,hevdamed 


COMPUTER SOFTWARE 
SERVICES 
P.O. Box 17660 
Rochester, New York 14617 


A 

ATARI 


$149.95 


Backup almost any disk currently available (even heavily protected programs) with an UNMODIFIED disk drive! 
Works with ANY disk drive! 


$149.95 


PURPOSE: The "IMPOSSIBLE” was developed in response to the estimated half million disk drive users that own a drive other than the Atari 81 0 (Indus, Per- 
com, Trak, Rana, Astra, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- 
vices, modification to your disk drive has been eliminated! The advantages are obvious! Drive warranties are not violated, the chance accidental 
damage has been eliminated, etc., etc. 

OPERATION: The “IMPOSSIBLE"! consists of a disk program (unprotected so you can make as many backups as you wish) and a 4K STATIC RAM pack 
which is inserted intoyourcomputer(nosoldering!)The“IMPOSSIBLE”! will read your program disk and then re-write it in an unprotected format! You may 
make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORS or EXOTIC FORMATS, 
the program data can now be manipulated into DOS compatable files (even double density!), transfered to cassette, etc. (with the aid of our Satellite 
programs!) No user programming knowledge required. A few programs require logical thinking. 


FEATURES: 1 . Backup protected disks 

2. Handles most MULTI-LOAD programs 

3. Makes DOS files (with Satellite option) 

4. Up to 90K data input capable 


5. AFSD-Automatic FUZZY Sector Discriminator 

6. Expands computer memory to 52K usable 

7. Simple NO SOLDER installation 

8. Satellite expandable 


PROJECTED SATELLITES: A "COMPACTOR” program which will convert your program into DOS compatable files (double density compatable!) for the 
storage of several programs on one disk. A “COLUMN 80” program for Word Proccessing, etc. It allows 80 columns on the screen! The "XL-MATE" will allow 
programs made with your 400/800 "IMPOSSIBLE"! to now play on your XLComputer! The METAMORPHOSES II program will allowyou to convertyour pro- 
tected CASSETTES into disk DOS files and vice-versa. All satellite programs must be used with inconjunction with The “IMPOSSIBLE"! 

REQUIREMENTS: The “IMPOSSIBLE” diskette, the 4K STATIC RAM pack, a 400 or 800 computer (please specify!) with 48K and ”B" Rom's. NOTE! The very old 
ATARI computers were shipped with “A" Rom's which had some serious “Bugs". Even if you don't own an “IMPOSSIBLE, "you should upgrade to "B" Rom's 
(simple to install!) We have them available at a very inexpensive price. CALL US! “XL" version available soon! 

NOT A PIRATING TOOL: We at C.S.S. did not design The “IMPOSSIBLE”! to put Software Manufactures out-of-business overnight! Nearly all of our products 
have been “ripped-off" by industry parasite who have little or no ability to develop a product of their own so we can sympathize with their dilemma. All 
C.S.S. products have built-in safe guards which prohibit their use fa flagrant pirating. The "IMPOSSIBLE"! is no exception! While The “IMPOSSIBLE”! back- 
up the most heavily protected programs, it also checks to see that the 4K STATIC RAM pack is installed before allowing the backup copy to 
execute! 


EXAMPLES: The “IMPOSSIBLE”! has been tested on 300 of the most pop- 
ular and heavily protected programs we could find. With nearly 4000 
programs fa Atari, we DO NOT guarantee that it will backup all pro- 
grams in the past-present-and future! We will supply updates at $6 each 
(non-profit!) if and when necessary. Programs we have successfully 
backed up include: Blue Max, Visi-cal, Archon, Mule, File Manager 800 
+, Syn Calc, Syn File. One on One, 7 Cities of Gold, Super Bunny, Load 
Runner, Drol, and Gumboil just to name a few! 


Mastercard-Visa-Money 
Orders a Cashier Check. 
Phone: (716) 467-9326 
Please specify computer 
model number! 


Send $149.95 plus 
$4 shipping and handling 
(N.Y.S. residents please add 7%) 

COMPUTER SOFTWARE SERVICES 
P.O. BOX 17660 
ROCHESTER, N.Y. 14617 



THE MUSICIAN 

continued from pase 37 

A dotted half note gets held for three 
beats of a measure. Sustained notes 
slide into the note which follows 
them instead of playing as separate 
notes. 

To choose a dotted, sustained 
eighth note, you would press the 
following three keys — [.] [8] [S]. The 
Musician isn’t fussy. You may press 
keys in any order for a multiple-key 
note command. 

When you use the [ # ] or [B] to 
make sharps or flats, The Musician 
will stay in the sharp or flat mode un- 
til you press [N] for Natural. 

Rests are times when no note is 
played. To choose a quarter rest, first 
press [Q] to make a quarter note, then 
press [R] to make it a rest. Similarly, 
to make an eighth rest, press [8] [R]. 
Half rests are [H] [R], 

Once you have selected the correct 
type of note and placed it in the right 
position on the staff, press your joy- 
stick button to enter it. 

Press [C] to Cancel the note if you 
change your mind. [C] always cancels 
the last note or the last chord entered. 

ENTERING CHORDS 

The Musician will recognize even the 
most advanced kinds of chords. En- 
tering chords is a snap since you enter 
them by name, not by notes. Press the 
asterisk [*] key to tell The Musician 
you want to enter a chord. The Musi- 
cian will display: 

ENTER A CHORD 
THEN PRESS RETURN 

To enter a C chord, press [*] follow- 
ed by [C], then press [RETURN]. The 
Musician will display the name of the 
chord you have keyed in, and briefly 
play the chord. 

Using the Key of C as an example, 
here is a complete list of chord types 
recognized by The Musician. 


ENTER 

CHORD SELECTED 

C 

C major 

CM 

C minor 

CM7 

C minor seventh 

C7 

C seventh 

CM6 

C minor sixth 

C6 

C sixth 


CMAJ C major seventh 

C+ C augmented fifth 

C- C diminished fifth 

CD C diminished 

Sharp and flat chords are entered 
by adding the [ # ] or [B] keys. For in- 
stance, here’s how to enter a C sharp 
minor seventh chord: 

Press [*] 

Press [C] 

Press [ # ] 

Press [M] 

Press [7] 

Press [RETURN] 

Chords in other keys are entered in 
exactly the same manner. For in- 
stance, you enter a G seventh as G7. 

If a chord is to play simultaneously 
with a certain note, enter the chord 
first, then enter the note. 

If you make a mistake when enter- 
ing a chord and wish to exit from 
chord mode, simply press [*] again. 
The chord will not be entered and 
you will return to note entry mode 
again. To re-enter the chord, press [*] 
again. 

Chords will continue to play in the 
background until they are changed to 
something else or turned off. To turn 
off a background chord, press [O]. 
The Musician will display: CHORD 
OFF. 

SONG PLAYBACK 

To hear a playback of the song you 
have entered, press [Pj The song will 
play automatically and each note will 
appear on the staff as it plays. You may 
change the tempo of the song by 
pressing [T] before pressing [P) The 
Musician will display: 

CHANGE TEMPO SLOWER 

Press the joystick button to slow 
down the tempo. To speed up the 
tempo, first move the joystick for- 
ward. The word SLOWER will change 
to EASTER. Pressing the joystick but- 
ton will then speed up the tempo. 

After playing a song, it remains in 
the computer memory. You may con- 
tinue adding notes to the end of the 
song. You may clear it from memory. 
Or you may SAVE it to cassette or disk. 
Pressing [ESC] while a song is play- 


ing causes The Musician to im- 
mediately stop playing the song and 
return to note entry mode. 

SAYING A SONG 

To SAVE a song, press [A] for Archive. 
The Musician will display: 

ENTER SONG NAME 

If you are saving to cassette, just 
press [RETURN]. You will hear two 
beeps. Put your recorder on record, 
then press [RETURN], 

If you are using disk, type in the 
song name. Do not use more than 
eight characters, since this becomes 
the file name. Three-character exten- 
sions are allowed if you like using 
them. Press [RETURN]. The Musician 
will write out your song. 

LOADING A SONG 

To load a previously saved song, press 
[L] . The Musician will ask you for the 
name of the song file. 

If you are entering the song from 
cassette, position the tape to the 
beginning of the song and press 
[RETURN].] 

If you are using disk, type in the 
song name and press [RETURN]. 

The Musician will load in the song 
and play it for you. Once a song is 
loaded it remains in memory until 
you clear it out. If you add notes after 
loading a song, they get appended to 
the end of the song. In this way, you 
can finish songs you saved only par- 
tially completed. 

CLEAR AND EXIT 

To clear a song from memory, press 
[CLEAR], Do NOT use the [SHIFT] 
key. Now you may begin entering a 
new song. 

To exit The Musician, press [E] . The 
Musician will display 

EXIT Y or N 

Press [Y] to confirm your choice. The 
program will end and return you to 
BASIC. 

Angelo Giambra is a senior pro- 
grammer for Marine Midland Bank 
in Rochester, N.Y. His “Eight Queens 
Problem” appeared in the April, 
1984 Antic 

Listing on page 61 El 
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SOFTWARE 

LIBRARY 

#lt\C type-in listing section includes every full-length program 
from this issue. Listings are easier to type and proofread, easy to 
remove and save in a binder if you wish. 

► ROTATE AND VIEW 3-D IMAGE IN ACTION! 

VIEW 3-D 54 

► ENHANCE YOUR PICTURE DETAILS LIKE NASA DOES! 

PIXEL SCANNER 58 

► YOUR ATARI MASTER WEAVER! 

COLOR INKLE LOOM 60 

► “MUSIC CONSTRUCTION” SOFTWARE! 

THE MUSICIAN 61 

► JOYSTICK SELECTION OF PROGRAM HUES! 

COLOR PALETTE 64 

► FAST GRAPHICS POWER FROM BASIC! 

G.U.P. THE GREAT 68 

► LEARN AND PLAY GUITAR CHORDS ON YOUR ATARI! 

GUITAR TUTOR 69 

► GAME OF THE MONTH 

HELICOPTER ROUND-UP 71 

► LOGO 

TURTLE PIANO 74 

► ASSEMBLY LANGUAGE 

TURBO TYPO II 75 

TYPING SPECIAL ATARI CHARACTERS 52 

HOW TO USE TYPO II 53 ERROR FILE 53 

DISK SUBSCRIBERS: You can use all these programs immediately. 

Just follow the instructions in the accompanying magazine articles. 

No part of this publication may be reproduced, stored in a retrieval system, or transmitted, in any form or by any means, 
electronic, mechanical, photocopying, recording or otherwise, without the prior written permission of the publisher. 

Antic program listings are typeset by Star's Gemini 10X Printer— From Star Micronics, Inc. , 200 Park Avenue, New York, 
NY 10166. 
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ANTIC SOFTWARE LIBRARY * SI 


TYPING SPECIAL 
ATARI CHARACTERS 


Antic printed program listings leave a small space between each Atari Special Character for easier reading. Im- 
mediately below you will see the way Antic prints all the standard Atari letters and numbers, in upper and lower 
case, in normal and inverse video. 

ABCDEFGHIJKLNNOPQRSTUVUKYZ 
HQHHaasmHHtaHuncDQmQBommiiEaas 
abcdefghi Jklnnopgrstuvwxyz 
ESHHHOfnraHKcanEmraraEnnsQmnEnpjB 
0123456789 SOHSaSSQEDE 


The Atari Special Characters and the keys you must type in order to get them are shown in the two boxes below. 
(Squares are drawn around the normal video characters so you can see their positions more accurately, these squares 
will not appear in listings.) 



NORMAL VIDEO 

FOR 

TYPE 


FOR TYPE 

THIS 

THIS 


THIS THIS 

ffl 

CTRL 


a CTRL T 

[1 

CTRL 

A 

B CTRL U 

□ 

CTRL 

B 

E CTRL V 

si 

CTRL 

C 

a CTRL w 


CTRL 

D 

B CTRL X 

ffl 

CTRL 

E 

E CTRL Y 

a 

CTRL 

F 

B CTRL Z 

s 

CTRL 

G 

E ESC ESC 

a 

CTRL 

H 

ffl ESC CTRL - 

a 

CTRL 

i 

ffl ESC CTRL - 

H 

CTRL 

J 

ffl ESC CTRL * 

0 

CTRL 

K 

B ESC CTRL * 

B 

CTRL 

L 

a CTRL . 

B 

CTRL 

M 

a CTRL ; 

B 

CTRL 

N 

1 SHIFT = 

E 

CTRL 

0 

m esc 


CTRL 

p 

SHIFT 

a 

CTRL 

Q 

CLEAR 

s 

CTRL 

R 

HI ESC DELETE 


CTRL 

S 

IB ESC TAB 



INVERSE VIDEO 

FOR 

TYPE 


FOR 

TYPE 

THIS 

THIS 


THIS 

THIS 

□ 

A CTRL 

, 

a 

ACTRL Y 

D 

A CTRL 

A 

B 

ACTRL Z 

H 

A CTRL 

B 

□ 

ESC 

a 

A CTRL 

C 


SHIFT 

□ 

A CTRL 

D 


DELETE 

a 

A CTRL 

E 

□ 

ESC 

a 

A CTRL 

F 


SHIFT 

a 

A CTRL 

G 


INSERT 

n 

A CTRL 

H 

□ 

ESC 

B 

A CTRL 

i 


CTRL 

□ 

A CTRL 

j 


TAB 

H 

A CTRL 

K 

H 

ESC 

a 

A CTRL 

L 


SHIFT 

B 

A CTRL 

M 


TAB 

B 

A CTRL 

N 

□ 

ACTRL . 

9 

A CTRL 

0 

□ 

ACTRL ; 

□ 

A CTRL 

p 

D 

A SHI FT - 

B 

A CTRL 

Q 

H 

ESC CTRL 2 

O 

A CTRL 

R 

□ 

ESC 

□ 

A CTRL 

s 


CTRL 

□ 

ACTRL 

T 


DELETE 

H 

A CTRL 

U 

□ 

ESC 

n 

ACTRL 

V 


CTRL 

B 

ACTRL 

w 


INSERT 

s 

ACTRL 

X 




Whenever the CONTROL key (CTRL on the 400/800) or SHIFT key is used, hold it down while you press the 
next key. Whenever the ESC key is pressed, release it before you type the next key. 

Turn on inverse video by pressing the Reverse Video Mode Key Ldl . Turn it off by pressing it a second time. 
(On the 400/800, use the Atari Logo KeyJ|^ instead.) Note: In the printed listings, inverse characters willl be slightly 
smaller than the normal ones. 

Among the most common program typing mistakes are switching certain capital letters with their lower-case 
counterparts — you need to look especially carefully at P, X, O and 0 (zero). 

Some of Atari Special Characters are not easy to tell apart from standard alpha-numeric characters. Usually the 
Special Characters will be thicker than the alpha-numerics. Compare the two sets of characters below: 


SPECIAL 

* r * CTRL F 
\ CTRL G 

- ■ CTRL N 

- = CTRL R 
+ :: CTRL S 


STANDARD 

/ * / 

\ * SHIFT + 

- 9 SHIFT - 

- B - 

+ n + 
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HOW TO USE TYPO II 


Type in TYPO II and SAVE a copy to disk or cassette. 

Type GOTO 32000 and follow TYPO II onscreen instructions. If the resulting two-letter line codes are not ex- 
actly the same as those in the magazine, you mistyped something in that line. 

To call back any line previously typed, type an asterisk [*] followed (without in-between spaces) by the line number, 
then press [RETURN]. When the complete line appears at the top of the screen, press [RETURN] again. This is also 
the way you use TYPO II to proofread itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. 

To remove TYPO II from your program, type LIST “D: FILENAME ”,0,31999 [RETURN] (Cassette owners LIST “C:). 
Type NEW, then ENTER “D:FILENAME” [RETURN] (Cassette — ENTER “C:). Your program is now in memory without 
TYPO II and you can SAVE or LIST it to disk or cassette. 

Owners of the BASIC XL cartridge from O.S.S. type SET 5,0 and SET 12,0 before using TYPO II. 


MB 32000 REM TYPO II BY ANDY BARTON 
VM 32010 REM VER ■ 1.0 FOR ANTIC MAGAZINE 
H5 32020 CLR : DIM LINES (120) : CLOSE «*2 : CLO 
5E **3 

BN 32030 OPEN **2 , 4 - O , "E" : OPEN **3 - 5 , 0 , "E" 
YC 32040 ? "«" : POSITION 11,1:? " IWJiNW 
EM 32050 TRAP 32040 : POSITION 2.3:? "Type 
in a program line" 

HS 32060 POSITION 1,4:? " ": INPUT **2 ; LINE 
$ : IF LINE$="" THEN POSITION 2, 4: LIST B 
: GOTO 32060 

HH 32070 IF LINES Cl, 1) ="**" THEN B=VAL (LIN 
ES (2 , LEN (LINES) ) 1 : POSITION 2,4:LIST B: 
GOTO 32060 

TH 32080 POSITION 2,10:? "CONT" 

MF 32090 B=VAL (LINES) :POSITION 1,3:? " "; 
NY 32100 POKE 842, 13: STOP 
CN 32110 POKE 842,12 


ET 32120 ? "*i" : POSITION 11,1:? * ' MH JiTW 
" : POSITION 2 . 15 : LIST B 
CE 32130 C=0 : ANS=C 

OR 32140 POSITION 2, 16: INPUT »3; LINES: IF 
LINES="" THEN ? "LINE "; Bi" DELETED" : G 
OTO 32050 

UV 32150 FOR D=1 TO LEN (LINES) : C=C*1 : ANS= 
ANS+ CC*ASC CLINES (D,D)) ) : NEKT D 
MJ 32160 CODE=INT CANS/676) 

JW 32170 CODE=ANS- (CODEM676) 

EH 32180 HCODE = INT CCODE/26) 

BH 32190 LCODE=CODE- (HC0DE*26) +65 
HB 32200 HC0DE = HC0DE-*-65 

IE 32210 POSITION 0,16:? CHRS CHCODE) : CHRS 
CLCODE) 

VG 32220 POSITION 2-13:? "If CODE does no 
X march press and edit line a 

boo e . " : GOT O 32050 


/ ERRORmE* V 


BUS OVERLINES 

Some signals and address 
labels were printed with- 
out overlines in Part III of 
Earl Rice’s Parallel Bus 
Revealed” (Antic, March 
1985). 

These are the correct 
labels: 

D8XX-DFXX 
CSJCHIP RESET) 

R/W 

DIXX 

RDE (READ DATA ENABLE) 
PS (D ATA STROBE) 

DRST (DEVICE RESET) 


FIRST LESSON IN 
ASSEMBLY 

Line 100 of the listing for 
“First Lesson in Assembly 
Language” (November, 

1984) should read POKE 
755,4 instead of POKE 
775,4. 

KOOKY’S QUEST 

February ’85 

The following line is 

missing: 

2100 FOR S = 32 TO 16 STEP 
-4: SOUND 0,S,l4,10: EA = EA 
* EA* EA: SOUND 0, 0,0,0: EA = 1 
A0:NEXT S 


DRUM SYNTH 

February ’85 
In Figure 1, the “ART” 
should be the Fuji (inverse) 
symbol. 


MISSING 

INFOBITS 

DECEMBER ’84 
The AL source listing for 
Infobits (Dec. ’84) was left 
out of the previous issue. 
You’ll find it in the Jan. ’85 
Software Library. 


ADVENT X-5 

November ’84 
Missing line: 8020 RUN. 
Also, cassette owners 
should change the 138 in 
line 4005 to 130. The 
TYPO II code for line 1005 
isEJ. 


ADVENTURE 

ISLAND 

November ’84 
Line 837 is missing its last 
item of data, a 4. Also, it 
will not run with DOS XL. 
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rotate and zoom 3-D imases in ACTION 


D Article on pase 38. 

LISTING 1 

ft 

; GR78M (LISTING 13 FOR 1=3.02 TO 198 DO d(13=14 OD : RETURN 


VIEW 3 


MODULE : INT xnow= [803 . ynow= [903 
BYTE cnow= (13 , key =764 , r an=l06 . c ur=752 
BYTE ARRAY nask7=I64 16 4 13.clor=708 
. nask8= (128 64 32 16 8 4 2 13, Mask, row 
CARD dli5t=560.sa=88 

CARD ARRAY adr (1923 : CARD POINTER nes 

PROC Kolor (BYTE c3 RETURN 
PROC Dot (INT x,y3 RETURN 
PROC Dll (INT X,y3 RETURN 

PROC LineTo (INT x,y3 
INT dx,dy < xf,yf,a,b,t, 1 
Dot (xnow, ynow3 

IF x=xno w AND y=ynow THEN RETURN FI 
IF x> xnow THEN dx=x-xnow: x f =1 
ELSE dx=xnow— x : xf=-l FI 
IF y>ynow THEN dy=y-ynow: y f =1 
ELSE dy=ynow-y:yf=-l FI 
x=xnow: y=ynow 

IF dx> dy THEN a=dy + dy:T=a-dx:b=t-dx 
FOR 1=1 TO dx DO x::+xf 
IF 1 <0 THEN l== + a 
ELSE t“+b:y::+yf 
FI Dot (x , y3 
OD 

ELSE a=dx+dx : t=a-dy : b=T-dy 
FOR 1=1 TO dy DO y==+yf 
IF T<0 THEN t == + a 
ELSE t::*b:x::+xf 
FI Dot(x,yj 
OD 

FI xnow=x : ynow=y : RETURN 

PROC GP780N (3 : BYTE 1 : BYTE ARRAY dl 

Graphics (8 + 163 : adr (03 =sa :d!=dlist 

FOR i = 1 TO 191 DO adr (ij =adr ( i-13 +40 OD 

d 1 = = — 4 : d 1 (03 =112 : d 1 (13=80:dl (23=16 

FOR 1=3 TO 198 DO d 1 ( 1 3 =d 1 ( 1 +43 OD 

dl (1993 =16 : d 1 (2003 =66 : Mes=dl +201 

dl (2043 = = — 4 : dl ist = dl : RETURN 

PROC Ko 1 or 7 (BYTE c 3 : BYTE 1 
c ==8 3:cnow=c 

FOR 1=0 TO 3 DO mask (3- 1 3 =c : c ==LSH 2 OD 
RETURN 


PROC Ko 1 or 8 (BYTE c 3 : BYTE 1 

c now=c * 3 : IF c>l THEN c=l FI 

FOR i =0 TO 7 DO Mask (7-13 =c : c==LSH 1 OD 

RETURN 

PROC DotSCINT x , y 3 : BYTE xb.xr 
BYTE ARRAY 

pr e= (127 191 223 239 247 251 253 2543 
IF x<0 OR X> 319 THEN RETURN FI 
IF y <0 OR y>191 THEN RETURN FI 
xb=x RSH 3:xr=x AND 7:row=adr(y3 
row(xb3==* pre (xr3 « Mask (xr 3 : RETURN 


PROC Dl 18 (INT x , y 3 : BYTE xb.xr 
IF x<0 OR x> 319 THEN RETURN FI 
IF y <0 OR y>191 THEN RETURN FI 
xb=x RSH 3 : xr=x AND 7:row=adr(y3 
row (xb3 == ! Mask (xr3 : RETURN 

PROC Gr 8 (BYTE ARRAY d3 : BYTE 1 
Mask=Mask8 : Kolor=Kolor8 : Dot=Dot8 
Dit=Dit8 : d (33 =79 : d (993 =79 
FOR 1=6 TO 98 DO d(13=15 OD 
FOR 1=102 TO 198 DO d(13=15 OD : RETURN 


LISTING 2 

l MISC1 (LISTING 23 

MODULE: BYTE St : INT ARRAY 

JX=(1 11112221000111 13 
,jy=(l 11112011201120 13 
BYTE ARRAY b=" ■■ 

PROC S«ft jx jy (BYTE 13 

FOR 1=0 TO 15 DO jX(13==-l: J9 (13==“1 OD 

RETURN 

PROC Pb (BYTE 1 3 : b (03 = 1 : Pr 1 nt (b3 : RETURN 
PROC Malt (CARD w, J3 

FOR J=0 TO w DO w==+l : w==-l OD RETURN 


PROC Dot7(INT x , y3 : BYTE xb.xr 
BYTE ARRAY pre=(63 207 243 2523 
IF X<0 OR X> 159 THEN RETURN FI 
IF y<0 OR y>191 THEN RETURN FI 
xb=x RSH 2:xr=x AND 3:row=adr(y3 
row(xb) pre(xrj x Mask (xrj : RETURN 


; TRIG 

MODULE: BYTE ARRAY Si (913 

PROC SetTri 3 (BYTE t INT y3 
FOR t=0 TO 90 DO y=(l+*13/'45 

y= (y+*t 3 /5 : y=100*+l-y : y==/'45 : S 1 ( T3 =y 

OD RETURN 


PROC Dl T7 (INT x , y3 : BYTE xb.xr 
IF x < 0 OR x> 159 THEN RETURN FI 
IF y<0 OR y>191 THEN RETURN FI 
x b = x RSH 2 : xr =x AND 3 : row=adr (y3 
row (xb3 == • Mask (xr3 : RETURN 

PROC Gr 7 (BYTE ARRAY d3 : BYTE 1 
Mask=Mask7 : Kolor=Kolor7 : Dot=Dot7 
Dit = Dit7 : d (33=78 : d (993 =78 
FOR 1=6 TO 98 DO d(13=14 OD 


INT FUNC sin (INT t.yj:t==MOD 360 
IF t <91 THEN y=Si(T3 
ELSEIF t <181 THEN y=Si (180-13 
ELSEIF t <271 THEN y=-Si (t-1803 
ELSE 9=-Si (360-13 FI RETURN (93 

INT FUNC cos (INT t,y3:t==M0D 360 
IF t <91 THEN y=Si (90-13 
ELSEIF t <181 THEN y=-Si (1-903 
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ELSEIF t <271 THEM y=-Si C278-T) 
ELSE y=Si Cl-2703 FI RETURN Cy) 


; VECTOR 

INT FUNC ABSCINT x) 

IF x<0 THEM x=-x FI RETURN Cx) 

IMT FUNC SQRCINT x) : INT y 

IF X— 0 THEN RETURN C0) FI : x=AB5 Cx ) : y=0 

DO y== + l : IF y~y+y>x THEN RETURN Cy) FI OD 

INT FUNC Udot (INT ARRAY v,w) :INT X 
x = u C0) C0) :x==tv(l)«w(l) 

X==+V(2)*WC21 : RETURN CX) 

PROC VProd CINT ARRAY v,w, u) 
uC0)=wClJ*w(2) :u[0J ==-w C2)*w(lJ 
u(iJ=wC2)*wC0) :u(i)==-w[0)»w(2) 
u C2) =u C0)*WC1) : u C2) ==-u (l)*w(0) 

RETURN 

PROC Norm ze CINT ARRAY u) : INT i,j,s 
i=ABS CM CO) ) 

j=ABS Cw Cl) ) : IF i<j THEN i = j FI 
j=AB5 Cw C2) ) : IF i<j THEN i = j FI 
IF i > 100 THEN j=l*i/100 

FOR i =0 TO 2 DO wCi)==/j OD 
FI 

FOR j=0 TO 1 DO s=WdotCu,M) :s=SQRCS) 

FOR i =0 TO 2 DO w C i J = w C i ) **128/s OD 
OD RETURN 


LISTING 3 

S COLORS CLISTING 3) 

MODULE : BYTE ARRAY dfaultt5),CP 
-C7=C52 24 130 194 8) 

* C8= E52 26 O 194 208) 

,CM=E52 24 194 138 88) 

PROC Inc C C) : BYTE i 

i=cnow: cnow==*l : position CIO. 23) 

IF i =3 THEN i=4:cnow=8 FI 
Koior(cnow) : i=clor CD : Prints Ccnow) 
Position C18, 23) : PrintB Ci RSH 4) 

Put C * J :positionC27.23) 

PrintB Ci A 14) : Put C * ) ‘.RETURN 

PROC incHueC) : BYTE i,J 

IF cnow=0 THEN i=4 ELSE i=cnow-l FI 

J=c lor Ci ) RSH 4 

J==+1:IF J> 15 THEN J=0 FI 

Position C18, 23) :PrintBCJ) : put C ' ) 

c lor Ci) = C J LSH 4) + CclorCi) a 14) 

C7(i)=clor Ci) : RETURN 

PROC incLunC) : BYTE i-J 

IF cnow=0 THEN i=4 ELSE i=cnow-l FI 

J=clorCi) A 14 

J==*2 : IF J>15 THEN J=0 FI 

Position C27, 23) :printBCj) : put c ■ ) 

c lor Ci) = (c lor Ci) A 240) + J 

C7Ci)=clor Ci) : RETURN 

PROC DFaultCC) :BYTE i 
FOR i=0 TO 4 DO C7Ci)=dfaultCi) 
c 1 or (i)=C7Ci) 

OD RETURN 


PROC SetDfaultO : BYTE i 
FOR i=8 TO 4 DO d fau 1 t C i ) =C7 C i ) OD : RETURN 
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PROC CPon C) : BYTE i 

FOR i=0 TO 4 DO c 1 or C i ) =CP C i ) OD : RETURN 
PROC CMon C) : BYTE i 

FOR i=0 TO 4 DO c lor Ci) =CMCi) OD : RETURN 

PROC Fixcol C) :lncCC) 

DO MHILE key=255 DO OD 

IF key=18 THEN key=255 : Inc C C) 

ELSEIF key=57 THEN key=255 : Inc Hue C) 
ELSEIF key=0 THEN key=255 : incLUMC) 
ELSEIF key=58 THEN key =255 : Dfau ltcu 
ELSE EXIT FI 
OD RETURN 

LISTING 4 

: DRAI43D CLISTING 4) 

MODULE : BYTE uf las=[0l ,gflag=[71 
INT sx.sy,Mag=[3] ,cx=C80) ,cy=[90] 
.rx=[0] ,ry=[0) ,rz=[0] ,ri=C30) 

CARD sal,dll,dl2.1inl6.1inl7.1 inl8 

, Iinl9. 1 in20. Iin21. Iin22. Iin23. 1 inl5 
INT ARRAY PC809) .eye, foe , R C9) , E C9) . M C9) 
, Q= C21 : 10 5 5:100:0 O 0:0: 

50 0 0:18:0 0 0:2:0 50 0:2: 

O 0 0:18:0 0 40:2:10 0 0:17: 

10 50 0:1:20 50 0:17:20 0 0:l: 

30 0 0:17:30 50 0:1:40 50 0:17: 

40 0 0:i:0 10 0:19:50 10 0:3: 

50 20 0:19:8 20 0:3:0 30 0:19: 

50 30 0:3:50 40 0:19:0 40 0:3) 

PROC F i xp CINT ARRAY Q) : INT i,j 
Zero CP, 1618) : j=4~Q C0) +8 
FOR i=0 TO j DO PCD=OCi) OD 
eye=p+2 : foc=p+i0 : RETURN 

PROC RotCINT ARRAY v) : INT x,y,z,s,c 
y = u Cl) 

u Cl) =y*co5 Crx)/128 : w C2) =y*sinCrx)/l28 
x=v C0) :z=vC2) :s=sincry) :c=coscry) 

M CO) = Cx*tc-z*ts)/128 : u C2) = Cx*s*z*c)/128 
x=vC0) :y=vci) :s=sincrz) :c=cosCrz) 
w CO) =x**c -y^s : u Cl) =x*s*ywc : u C0) ==/128 
u Cl) ==/128 : Nornize Cw) : RETURN 

PROC F i XR C) : INT ARRAY v C3) . w C3) , u C3) 

V CO) =128 : W Cl) =0 : v C2) =0 : Rot Cw) 

WCO) =0 : w Cl) =128 : WC2) =0 : Rot Cw) 
UprodCv,w,u) :Nornizecu) 

RC0)=wCO) :RC1)=WC1) :RC2 )=wC2) 

R C3) =WC0) : R C4) =wd) : R C5) =wC2) 

RC6)=UC0) :RC7)=UC1) :RC8)=uC2) : RETURN 

PROC F ixE C) : INT s 

E C6) =eye CO) : E C7) =eye CD : E C8) =eye C2) 
Nornize CE+12) 

IF EC8)=8 THEN E C3) =0 : E C4) =0 : E C5) =128 
ELSEIF E C6) =0 AND E C7) =0 THEN 
E C3) =0 : E C4) =128 : E C5) =8 
ELSE EC3)=-EC6) :EC4)=-EC7) 

E C5) =E C6) wE C6) : E C5) = = + E C7)^E C7) 

E C5) ==/E C8) : Nornize CE + 6) 

IF EC8X0 THEN EC3)= — EC3) :EC4)=-EC4) 
EC5)=-EC5) 

FI 

FI VProd CE+6,E+12,E) :NornizeCE) : RETURN 
PROC FixMC) 

MC0) =Vdot CR, E) : MC3) =Vdot CR, E*6) 

MCI) =Vdot CR + 6 , E) : MC4) =Vdot CR + 6, E + 6) 

continued on next page 
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M £23 =V«*ot CR + 12 , E3 : MC53 =Wdot CR + 12 , E + 63 
Norm zt (M3 : Nornize CM+63 

Vprod(M,M+6,M+i23 : Nor hi ze CM+123 : RETURN 

PROC Haksxsy CINT ARRAY «3 : BYTE i 
INT P*,py,PZ,t,d:INT ARRAY w£33 
FOR i=0 TO 2 DO W £ i 3 =v C i 3 - f oc £ i 3 OD 
IF vflas=l THEN PX=Vdot £w, M3^128 
pyrUdot (w, M+63/128 
sx=c x+nag*px/ 2 : sy=c y-nag»py /2 
ELSE d=eyeC33 :t=nag*d/8 

px=Vdot tw, M3 /128 : py=Vdot tw, M+63 /128 
pz=Vdot(w, M+123 /1 2 8 
d==— pz : IF d<4 THEN d=4 Fl:d==/4 
sx=ti»px/d : sy=t*py/d : sx==+cx: sy=cy-sy 
FI RETURN 

PROC CLR £3 : Zero tsal, 76803 : RETURN 

PROC DrawtINT ARRAY P3 : BYTE i 

INT ARRAY Pt 

pt=P+10 

FOR i=l TO PC03 DO Pt==*8 Maksxsyjptj 
Kolor(pt(33 & 153 
IF Pt C33 <16 THEN LineTo(sx,sy3 
ELSE Dot tsx, sy3 : xnow=sx : ynow=sy FI 
OD RETURN 

LISTING 5 

J UPDATES CLISTING 53 

PROC Uviewt3 : Pos i t i on £22 , 153 
yflag==+l : IF uflag>l TH EN ufiag=0 FI 
IF of lag=0 THEN printraJEaHHaa") 

ELSE Print: f MAMAMiCTN 11 ! FI : RETURN 

PROC Ueye t3 : BYTE i : position £5. 173 
FOR i=0 TO 2 DO 

IF eye C i 3 <-10 THEN eyeCi3=-10 
ELSEIF eye Ci3 >10 THEN eyeti3=10 FI 
Printl(eye(i33:Put(' 3 
OD Position 124, 173 
IF eye C33 > 200 THEN eye C33 =288 
ELSEIF eye £33 <18 THEN eye £33 =18 FI 
Pr inti £eye £33 3 : Put £ • 3 : RETURN 

PROC Unag £3 : Posit ion £37. 173 :nag==+l 
IF «ag>9 THEN nag=i FI : Pr inti £nag3 : RETURN 

PROC Urot £3 : Position £12. 183 :Printi£rx3 
Putt* 3 :Printl£ry3 : Put £ • 3 
pr inti £rz3 :Pb£23 

F i xR £3 : F ixMfJ : CLR £3 :Draw£P3 : RETURN 


FOR i =0 TO 2 DO Pr i nt I £pt £ i 3 3 : Put £ • 3 
RETURN 

PROC Ugr £3 :Positiontl,153 
IF gf 1 ag=7 THEN gf lag=8 : cx==+88 : CP=C8 
Print £"xox GRAPHICS 8 xox"3 :Gr8£dll3 


O 


ELSE gflag=7:cx==-80:CP=C7 


print fx GRAPHICS 7PLUS x"3 : Gr 7 £dl 13 
FI Ucen fcx.cy) 

CPontJ : CLR £3 :Draw£P3 : RETURN 


PROC UReset £3 : BYTE i 

position £5. 173 : Pb £123 

POS i t i on £12 .183 : Pb £123 

Position £8. 193 : Pb £93 

Position £24, 193 :Pb£143 

FOR i =1 TO 8 DO P£i3=Q£i3 OD 

•* 109=3 : rx =0 : ry =0 : rz =0 : r i=30 : FixE £3 

Ueye £3 :Ufoc £focj : Unag £3 : Urot £3 :Uri £3 

cy=90 : c x=l60 : gf lag=8 : Ugr £3 : RETURN 


LISTING 6 


i STICK3D tLISTING 63 


PROC JoyD CINT n3 ; 0-EDIT , 1-ADD 
BYTE i , k, f : INT ARRAY Pt 
IF n=0 THEN f=0 ELSE f=l:n=PC03 FI 
n==+l : pt=p+i0+8*n : UPt £n3 : Ucxyz £pt3 
Ko l or £pt £33 * 153 : Maksxsy Cpt3 : Di t tsx. syj 
DO IF n> 200 THEN EHIT FI 
UHILE Strig£03=8 DO 


st=St ick £03 :Dit(sx,sy) 

IF st <15 THEN Pt £23= = - Jy £st3 
Maksxsy £pt3 : Ucxyz £pt3 
FI D i t £sx , sy3 


O 


st=5tick £03 :Dit£sx,sy3 
IF key <255 THEN k=key : key=255 
IF k=33 THEN n== + l : UPt £n3 

IF Pt£33<16 THEN L i neTo tsx , sy 3 
ELSE Dot tsx, sy) : xnow=sx : ynow=sy FI 
IF f=l THEN 

FOR i = 0 TO 3 DO Pt £4+ i 3 =P t £ i 3 OD 
FI pt==+8 : Kol or £pt £33 X 153 
Maksxsy £pt3 : Ucxyz £pt3 
ELSEIF k=10 THEN pt £33 == ! 16: Ucxyz CptJ 
ELSEIF k=18 THEN lncC£3 

P"t £33 = £Pt £33 * 163 +c now : Uc xyz £pt3 
ELSE key=k : EXIT FI 


FI 

IF st <15 THEN pt£03==+ jx Cst3 

Pl£13==— jy £st3 : Maksxsy £pt3 :Ucxyz£pt3 
FI Dit £sx, sy3 
OD P £83 =n-l: RETURN 


PROC Uri £3 : Position £35, 183 
printltrij :put£* 3 : RETURN 

PROC Ucen CINT x , y3 : Pos i t i on £8 , 193 

printltxj : put £ • 3 

PrintI £y3 : Put £ ■ 3 : RETURN 

PROC UfOCCINT ARRAY V3 : BYTE i 
Position £24,193 

FOR i =0 TO 2 DO PrintI£w£i3J : Put £ • 3 OD 
RETURN 

PROC UPtCINT n3 : Position C5, 223 :printl£nj 
Putf 3 : IF n <100 THEN Put £ • 3 FI 
Position £30, 223 :Pb£83 : RETURN 

PROC Ucxyz CINT ARRAY Pt3 : BYTE i 
position £15, 223 :PrintB£Pt£33 & 33 
IF Pt £33 <16 THEN Printf* LineTo "3 
ELSE Print C" Plot "3 FI 


PROC JoyF £3 : BYTE i : INT ARRAY Pt C33 
IF cnow=0 THEN KolortlJ FI 
FOR i =0 TO 2 DO pt£i3=foc£i3 OD 
Maksxsy CPt3 : Dit Csx, sy) : Ufoc £pt3 
DO 

UHILE Str i g £03 =0 DO 

st=StiCkt03 : Dit £SX, Sy3 
IF st <15 THEN Pt £23= = - jy tst3 
Maksxsy Cpt3 :Ufoc Cpt3 
FI Dit Csx , sy3 
OD 

st = StickC03 : D i t Csx , sy3 
IF key=33 THEN key=255 

FOR i =0 TO 2 DO foctiJ=pt£iJ OD 
CLR £3 : Drawtpj : Maksxsy £pt3 
ELSEIF key <255 THEN EHIT FI 
IF St <15 THEN Pt £03 = = ♦ jx CST3 

Pt £13 = = - jy fst) : Maksxsy £pt3 : Ufoc £pt3 
FI Dit Csx , sy3 


O 


56 ★ ANTIC SOFTWARE LIBRARY 


JUNE 1985 


OD Ufoc Cfocj : RETURN 

PROC JoyE CJ : INT x,y,z 
x=eyeC 0 j :y=eye(l) :z=eye(2) 

DO st=5tick(0) :ueye() 

WHILE 5tri g (03 =0 DO st=5tiCkC0) 
eye C23 ==- jy (st) : eye (33 ==+ jx Cst3 
Ueye n 
OD 

IF key=33 THEN key=255 

FixECJ : F i xHO : CLR CJ :Draw(P) 
x=eye(03 :y=eyeci) :z=eyeC23 
EL5EIF key <255 THEN EXIT FI 
eye (03 == + jx (st j : eye C1J ==— jy CstJ 
OD eye C0J =x : eye C1J =y : eye 123 = z : Ueye CJ 
RETURN 

PROC JoyCCJ :INT x,y 

IF c now=0 THEN KolordJ FI 

x=cx:y=cy:DitCx,yj 

DO st=Stick C0J :UcenCx,yj :Dit(x,yj 
IF key=33 THEN key=255 
cx=x : cy=y : CLR CJ :DrawCPJ 
ELSEIF key <255 THEN EXIT FI 
x==+jx(stj :y==+ jycstj : D i t Cx , y ) 

OD Ucen Ccx, cyj : RETURN 

LISTING 7 

J DISKIO (LISTING 7J 

MODULE: BYTE err 

BYTE ARRAY f 1 n C16J , abort=» KlEDIlliai" 

PROC HyErr CBYTE ej 

position Cl, 16J : Pr i nt J 

printBCej :err=i:nesA=Hn2i 
Position (12, 21 J iprintBCej 
WHILE key=255 DO OD key=21 : RETURN 

PROC CI0=SE456 CBYTE a,x3 

PROC 102 CBYTE end CARD buf.lenj 
BYTE I0cnd=866 ; 7-LOAD 11-SAVE 
CARD I0buf=868,I0len=872 
IOcHd=cnd : lObuf =buf : IOlen=len 
CIO C0. 32J : RETURN 

PROC Dir CJ: BYTE i,j,lft=82 
BYTE ARRAY a C18J , f C9 J 
1 ft =22 : Position (22, 33 
FOR i=l TO 11 DO PbC16J :PutECJ OD 
Position (22.. 3J : J=0 
Close (2J : Open (2, "D :»■ V3D", 6, 03 
FOR i=l TO 22 DO lnput5DC2,aJ 
IF a (03=16 THEN EXIT FI 
SCopySCf ,a.3,l©3 :Print(fJ 
IF 1=0 THEN j=l : Put ( • 3 
ELSE j=0 : PutE (3 FI 
OD Position (22. 143 : Print (aj 
Close (2J : 1 f t=l : RETURN 

PROC inp CBYTE ARRAY f J : BYTE i 

BYTE ARRAY a (103 

SCopy ( f , “D : "J 

position (23, 163 :Pb(153 

position (23, 163 :lnputS(aj 

i =a (03 +3 : IF i>ll THEN i=ll FI 

SAssianCf , a, 3, 103 : SAss i gn ( f , ■• . W3D" , i , 143 

posit ion C23, 163 :print(fj : RETURN 

PROC SaweP (3 : BYTE k : CARD n,t 
Position (1, 163 : Print ("OSSB "3 

inpCflnj 

posit ion (1, 163 : Pr i nt ('■ (S3 -lil'^ l i* , 3 
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WHILE key=255 DO OD k=key : key=255 
IF k <> 62 THEN Pos i t i on Cl , 163 : Put ( • S3 
PrintCabortJ : RETURN 
FI t=Error : Error=MyErr : err=0 
n=8**P C03+18:CloseC23 :OpenC2, fin, 8, 03 
IF err > 0 THEN C 1 ose C23 : Err or = t : RETURN FI 
102 (11 , P, nj : 102(11, C7, 53 :Close(23 
PositionCl, 163 : Print (■• Ifl'HrT **3 
Error=t : Dir (3 RETURN 

PROC LoadPCJ : BYTE k : CARD n.t 
PositionCl, 163 :print ("DEM3QI "3 
InpCflnj 

PositionCl, 163 : Print C" CL3 - MNiT;T »3 
WHILE key=255 DO OD k=key : key=255 
IF k <> 0 THEN PositionCl, 163 :Put('L3 
PrintCabortJ : RETURN 
FI t=Error : Error=MyErr : err =0 
Close C23 : Open C 2 , fin, 4, 03 

IF err >0 THEN C 1 ose C2J : Error=t : RETURN FI 
102 C7 , P , 23 : n=8~P (03 +16 
102 (7, P + 2 , nj : 102 C7 , C7 , 53 :CloseC23 
posit ion Cl, 163 : Print (■■ NlirntHM “3 
Error = t : SetDfaul t C3 :CPon« 
positionC30, 193 : Pb C63 : RETURN 

LISTING 8 

: PRINTIO (LISTING 83 

PROC PPtCINT ARRAY U3 
pr into (2. " ("3 : Pr intID (2, w (03 3 
pr into (2, ** "3 : Pr intID C2, w C13 3 
Pr intD (2, " "3 : Pr intID (2, v (23 3 
pr intD (2, " : "3 : Pr intID C2, w (33 3 
Pr intD C2, ‘*3 "3 : RETURN 

PROC Prnt ( J : BYTE i,j.k:CARD n,t 
BYTE ARRAY a(133,st=(3 27 51 163 
, pre= (4 27 75 192 03,s,dC1933 
posit ion (1, 163 : Print (••■PEXiBiDESfH "J 
WHILE key=255 DO OD k=key : key=255 
IF k <> 10 AND k <> 58 THEN Pos i t i on (1 , 243 
Put ( ■ p J : print (abortj : RETURN 
FI : t=Error : Error=MyErr : err =0 
Close (23 : open (2 , "P : " . 8 , 03 

IF err>0 THEN C 1 ose (23 : Error =t : RETURN FI 
b (03 =12: SCopy (a, bj :5CopyS(a, fin. 3, 143 
pr i ntDE (2 , " “3 : Pr intDE ( 2 , aj 
IF err >0 THEN C 1 ose (23 : Error=t : RETURN FI 
IF k = 1 0 THEN st (33=16:PrintDEC2,st3 
s=sal : d (03 =192 
FOR i=0 TO 39 DO n=7640+i 

FOR i=l TO 192 DO d ( jj =s (nj : n= = -40 OD 
printD ( 2 , prej : Pr intDE C2, dj 
OD 

ELSE st ( 33 = 20 : Pr intDE (2, stj 
printD( 2 »"eye="J :Ppt(eyej 
PrintD ( 2 , " focus="3 :Ppt(foc3 
pr i ntDE (2 , " "3 : i=0 : j=0 : n=P+10 
DO i == + l : IF i > P C03 THEN EXIT FI 
j==+l : n==+ 8 : PPt (nj 
IF j> 2 THEN j=0 :PutDEC23 FI 
OD Pr i ntDE (2 , " "3 

FI PositionCl, 163 :Print C" "3 

Error=t : Close (23 .RETURN 


LISTING 9 

; MENU3D (LISTING 9) 

PROC Menu (J: BYTE i .'1 f T=82 : BYTE ARRAY dl 
dl=dl2-5 : dl ist=dl :dl 2 =dlist 

continued on next page 
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FOR i=8 TO 12 DO d 1 ( i ) =d 1 (5+ i ) OD 
d 1 Cl J =48 : d 1 (2)=48:dl (3)=71:dl C6J =6 
dl (8) =48 : dl (22) =6 : dl (23) =6 : dl C24J =16 
d 1 (26) =16 : d 1 (28) =16 : d 1 (30) =16 
dl (32) =16 : d 1 (35)=dl*255: lft=l 
Print(" view 3D ") 

PrintEC* Paul chabot 198! 

PrintE (■■■iliMrl'MbUJi G Gr7/8l 
PrintECVX Inc rxa V View 

inc r» M Mag. 

Inc rzi c Color 

Inc ri| 

Dec 


«1 ADD Points/Lines ■ 
■2 EDIT Points/Linesl 
■3 Change EVE/dist. ■ 
■4 Change FOCUS ■ 
■5 Change CENTER ■ 


Pr i n't E C 
PrintEC 
PrintEC 
PrintEC 
PrintE (' 

PrintEC 
PrintEC 
PrintEC 
PrintEC 
PrintE C‘ 

PrintE C 

PrintCx GRAPHICS 7PLUS x ") 

PrintEC" f i 1 enane» 

Pr i ntE ("eye dist 

PrintE ("PreRotated 
PrintE ("Center 
PrintE ("I 
PrintE (" 

PrintE ("pt» 

Pr i nt (" noior 
1 ini5=sa+600 

1 ini6=sa+640 : 1 inl?=sa+680 : 1 inl8=sa+720 
1 i ni9=sa*760 : 1 in20=sa+800: I in21=sa+840 
1 in22=sa+880 : 1 in23=sa+920 : RETURN 


Focus") 


(any key) - MENU") 




LISTING 10 

; VIEU3D (LISTING 10) 

; by Paul Chabot 
; ANTIC Magazine 

INCLUDE "D:GR78M. ACT" 
INCLUDE "D : MISC1 . ACT" 
INCLUDE "D: COLORS- ACT" 
INCLUDE "D:DRAU3D. ACT" 
INCLUDE "D: UPDATES. ACT" 
INCLUDE "D:STICK3D- ACT" 
INCLUDE "D : DISKIO - ACT" 
INCLUDE "D:PRINTIO- ACT" 
INCLUDE "D : MENU3D - ACT" 


PROC Setup (): BYTE i 

SetTrigC) : Set jxjyc] :setDfault[) :FixPCO) 
Gr?80N () :dll=dl ist:sal=sa:ran==-33 
Graphics C0) : ran==+33 : dl2=dl 1st : cur = l 


CMono : Menu () :Dir() :UReset() :dllst=dll 
wesA=l i n20 

RETURN 

PROC Maine): BYTE k : setup « 

DO UHILE key=255 DO OD k=key :key=255 
d 1 i st=d li: CPon C) 

IF k=31 THEN hes*=lin22 ;l 
Joy D Cl) 

ELSEIF k=30 THEN nes^=lin22 ;2 
CLRC) : JoyDCB) 

ELSEIF k=26 THEN nes^=l inl7 ;3 
Joy EC) 

ELSEIF k=24 THEN nes^=linl9 ;4 
JoyFC) 

ELSEIF k=29 THEN nes~=linl9 ;5 
JoyCC) 

ELSEIF k=50 THEN Mes^-l in20 ;0 
UReset C) 

ELSEIF k=22 THEN nes*=linl8 ;X 
rx=Crx*ri+360) MOD 360:Urot() 

ELSEIF k=43 THEN Mes^=linjL8 ;Y 
ry = Cry+ri + 360) MOD 360:UrotC) 

ELSEIF k=23 THEN nes^=linl8 ;Z 
rz= Crz+r i+360) MOD 360:UrotC) 

ELSEIF k=13 THEN nesA- 1 i nl8 ;I 

r i = = *1 : IF ri>45 THEN ri=45 Fl:Uri() 
ELSEIF k=l THEN Mes^=linl8 ;J 

r i = = -l : IF ri<-45 THEN ri=-45 FHUrii 
ELSEIF k=18 THEN «es~=lin23 ;C 
Fixcol C) 

ELSEIF k=16 THEN Mes^=linl5 ;V 
Uviewo : CLR C) :DrawCP) 

ELSEIF k=37 THEN Mes^=linl7 ;M 
Unag C) 

ELSEIF k=58 THEN dlist=dl2 ;D 
CMon C) : Dir C) 

ELSEIF k=0 THEN nes^=linl6 ;L 

LoadP C) : Ueye C) :Ufoc (Foe) :FixEC) 
FixMC) : CLR C) :Draw(P) :nes^=lin20 
ELSEIF k=62 THEN Mes^=linl6 ;S 
SavePC) :nesA=iin20 
ELSEIF k = 61 THEN nes-= 1 i nl5 ;G 
Ugr () 

ELSEIF k = 10 THEN nes-v= 1 i nl6 ;P 
prntC) :ne5A=iin20 

ELSEIF k=33 THEN nesA=iin20 ; SPACE 
CLR C) : Dr aw CP) 

ELSE dl ist=dl2 : CMon () 

FI 

OD 


O 


O 


enhance your picture details like NASA does! 


PIXEL SCANNER 


LISTING 1 


Don't type the<^-. 
TYPO II Codesl'xJ^ 


UY 10 REM GTIA PIXEL AVERAGING 
ON 20 REM BY LYH BUCHANAN 
FU 30 REM (c) 1985. ANTIC PUBLISHING 

ML 40 GOTO 300 

IK 100 REM PIXEL AVERAGING ROUTINE 

RM 110 REM SET AREA TO BE ENHANCED 

VS 111 REM Y-COORDINATE RANGE 

FV 112 FOR Y = 1 TO 88 

VP 113 REM X-COORDINATE RANGE 

EL 114 FOR H = 1 TO 77 

FS 115 REM STOP ATTRACT MODE 


JR 
SX 

TS 

DN 121 
KP 122 
DZ 123 
JF 124 
HF 125 
JR 126 LOCATE 
HV 127 LOCATE 
OL 128 LOCATE 


EACH PIXEL 
VARIABLE 
X-l , Y-l . A 
X-l. Y. B 
X - 1 , V ♦ 1 , C 
X . Y-l . D 
X . Y , E 
X . Y ♦ 1 . F 
X+l.Y-l.G 
X+l . Y , H 


116 POKE 77,0 
120 REM LOCATE 


VALUE TO A 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


AND 


ASSIGN 


o 
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IH 
CG 
KG 
YF 
VL 
DF 
GB 
UA 
II 5 
DC 
GP 

SF 

RM 

KK 

EN 

OV 

IK 
S J 

TZ 

QE 

UP 


QJ 

QL 

LH 


129 LOCATE H+l.Y+1,1 

138 REM AUERAGE ALL PIHEL VALUES 

131 K=INT t CA+B+C+D*E*F+G*H*I1/9J 

132 REM LIGHTEN THE BACKGROUND 

133 IF K= 0 THEN K=8 

140 REM REPLOT PIXEL IN NEU COLOR 

141 COLOR K : P L O T K, Y + 95 

150 REM RETURN FOR THE NEKT PIHEL 

151 NEKT K : NEKT Y 

160 REM LOCK SCREEN IN GR-9 MODE 

161 POKE 77, 0 : SOUND 0 . 65. 14 , 14 : GOTO 16 
1 

199 REM 

200 REM DRAM STICK FIGURE BIRD 

201 GRAPHICS 9 : POKE 712,144 

210 REM DRAM TAIL 

211 FOR K = 1 TO 15 : COLOR K:PLOT 15*K,75 

: DRAUTO 3+K/4, 71-K/2 : NEKT K 

220 REM DRAM BODY 

221 FOR H=16 TO 4 STEP -l:COLOR K:PLOT 

15 + K/0 -6,74 — KiDRAMTO 60-K/l .8, 74-K 

222 PLOT 15+K/0 • 6, 6 6 ♦ X : DRAMTO 60-K/l. 8 
» 66 + K : NEKT K 

230 REM DRAM MINGS 

231 FOR X=1 TO 16 : COLOR K:PLOT 4,63:DR 

AMTO 18*K , 10-K/2 : DRAMTO K*2*20, 66 H/4 : 
DRAMTO K*2+24 . 66-X/4 

232 DRAMTO 46*K, 20-H/2 : DRAMTO 75,45:NE 
KT K 

240 REM DRAM HEAD 

241 COLOR 1 1 : F O R K = 1 TO 22:PL0T 48»K/2 


, 60-K/2 : DRAMTO 68K/6 , 60-K/2: NEKT K 

RM 250 REM DRAM BEAK 

US 251 COLOR 15:F0R X=1 TO 5:PLOT 73,67:D 

R AMT O 48 + H, 67-H : NEKT K : FOR K = 1 TO 15:P 
LOT 49+K/2 , 67 : DRAMTO 75,55:NEKT K 

KN 260 REM DRAM EYE 

RY 261 COLOR 0:FOR Y=54 TO 56:PLOT 60,Y:D 
R AMT O 62, Y: NEXT Y 

LV 270 GOTO 100 

SG 299 REM 

KE 300 GRAPHICS 0:POKE 710.28:POKE 712.28 

: POKE 709.2 

qy 381 ? : ? :? , "saaraBQHrasHBHEaraEiEQEis" : ? 

, by Lyn Buchanan":? 

NR 302 ? "This dewo progran draws a stick 

-figurebird using nornal PLOT and DRAM 
TO" 

ZT 303 ? "commands. Then the progran *co 

mputer enhances* the inage by sampling 


YR 


304 ? "color ual 

:? "aueraging it 


of each pixel, and" 
th the values of th 


e surrounding pixels.":? 

SD 305 ? "The BASIC routine is slow (take 

s a b o u 1 1 2 minutes!, but the results ar 
e worththe wait.":? 

ZK 310 POKE 752 , 1 : POSITION 12.22:? "READY 
? PRESS ■BDE3G3DI" : POKE 53279,8 


VH 320 IF PEEK C532793 <> 6 THEN 320 
SO 330 POKE 53279, 8:G0T0 200 


f Joi 

1 When we had the r 
ii we iumoed at 't. I 


$9.95 

■ f or an unheard of low price. 


■ ^ 


' lowest conceivable price. 

teslas** 

] manufacturers. 


tion of containing TechnoPop hits an ^ vuith Santa, Rudolph, and 

□ 


Antic staff now uses them exctavely. r j 

FOR THE S0PH JS7!^PP'y wontlastlong. Whatdo you I 

Arcade IDD0I0 » 

Arcade IDD050 5 95 + $7 shipping/handling 

Arcade IDD100 100 DISKS S7M5 + S 

PLACE TOUROnOER TODAY 


□ 
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your Atari master weaver 


COLOR INKLE LOOM 


LISTING 1 


Don’t type the/^w 
TYPO II Codes! 


GO 

KJ 

FM 

MF 

VY 

FG 

PS 

ST 

RX 

GO 

OT 


KM 

UR 

UX 

BP 


OQ 

ME 

HN 

JS 

AL 

UY 

QY 

XY 


UN 

OG 

NO 

UR 

TO 

PC 

DC 

NP 


UK 

OQ 

KH 

JT 

FT 


KN 

OB 

PIT 

FY 


U J 
MU 
ED 
ID 

FR 


FQ 

DU 

DO 

OB 


10 REM COLOR INKLE LOOM 

20 REM GEROLD M- HOGOPION 

30 REM tcj 1985. ONTIC PUBLISHING 

40 DIM ONSS13J , CLSI403 , CL1S M0) , SBS tl J 

, S B 1 S (1) . C R S ( 1 3 ,UEO«St7684) 

50 UEOUS (13 = " V : UEOVS C7684J =UEOVS : UEOU 
S t 2 J =UEOV$ : ODX = ODR ( UE A U S 3 
60 L O D = 0 

70 GOSUB 820 : GOTO 980 
80 GOSUB 930 

90 SCRN = PEEK 188 J ♦ P E E K ( 8 9 3 *2 5 6 
100 X=0 : 0=1 : B = 3 

110 IF LOD THEN JNK = USR CODR ( " h hriGlhnfiJhn 
BhnnhnHhnn«*nraruouH lomorata incnHmi2KHt3'*i3*" 
J , ADX , SCRN . 7680 J 

120 IF LOD THEN POKE 712 , OSC (UEOVS (768 
1 , 7681 J 3 

130 IF LOD THEN FOR Y = 708 TO 710:POKE 
Y . ASC CUEAUS CY+6974 . Y+69743 3 : N E X T Y : GOT 
O 150 

140 POKE 712 , 8 : P O KE 710,34 

150 FOR K=1 TO 79 : COLOR K/5:SOUND 0.25 

5- (K*2 J . 10 . 8 : PLOT K.150:DROUTO K.160:N 

EXT K : SOUND 0.0. 0.0 

160 GOSUB 1 8 0 : P O KE 559,34 

170 GOTO 200 

180 POSITION 0.0:? CHRS(125J :POKE 752, 
1 : POKE 710.34 

190?" 40 BC DE FG HI JK L 

M N O" : RETURN 

200 REM LOOM SET UP 

210 CLOSE **1 : OPEN **1 . 4 . 0 . "K : " 

220 IF LOD THEN LOD=0:GOTO 710 
230 GOSUB 180 : POSITION 0.3:? "Nunber o 
f threads per harness?":? " (LIMIT 393 
" ; : I N P U T H:? :IF H<1 OR H>39 THEN 230 
240 GOSUB 180 

250 POSITION 0.3:? "SURE? (Y/NJ ": 

GET **1 , K : I F K<>89 THEN 230 

260 X = 1 : Y = 0 : COLOR 8:PLOT X, Y : DRAUT 8 H. 
Y : P L O T H. Y : COLOR 15:DRAUTO H**2 . Y 
270 REM HARNESS SET UP 

280 CLOSE **1 : OPEN nl. 4 , 0, "K : " : POKE 752 
. 1 

290 X = 1 : Y = 0 : ET =4 
300 FOR T = 1 TO H 

310 GOSUB 180 : POSITION 0,3:? "Harness 
Ml : Thread m ";T:? " Color Selection?" 

: GET ttl , K : IF K<64 OR K>79 THEN 310 
320 GOSUB 180 
330 CL=K-64 

340 CLS (T . T J =CHRS (K3 

350 FOR X=X TO X+l: COLOR CL:PLOT X,Y:D 
ROUT O X . ET : NEXT X 

360 POSITION 0.3:? "Color OK CY/N3 ?": 

GET Ml . K : IF K<>89 THEN X=X-2:IF K<>89 

THEN 310 

370 NEXT T 

380 X = 1 : Y = 5 : ET = Y*4 

390 FOR T 2 = 1 TO H 

400 GOSUB 180 : POSITION 0,3:? "Harness 

m 2: Thread m ";T2:? " Color selection? 

" : GET Ml , K : IF K<64 OR K>79 THEN 400 

410 GOSUB 180 

420 CLl=K-64 

430 CL1SCT2, T23 = CHRS (K3 

440 FOR X = X TO X+l:COLOR CLUPLOT X.Y: 
DROUTO X, ET : NEXT X 

450 POSITION 0.3:? "Color OK CY/NJ ?": 
GET Ml.K-.IF K < > 8 9 THEN X=X-2:IF K<>89 
THEN 400 
460 NEXT T 2 

470 POSITION 0,0:? "* Press STORT to w 

eaue . " : POKE 53279,8 

480 IF PEEK (532793 <> 6 THEN 480 
490 POKE 53279.8 


IN 500 REM UEAUING ROUTINE 

FI 510 POSITION 0,0:? "4 UE8U 

ING" 

DH 520 FOR K= 1 TO 79:C0L0R 0:SOUND 0,255- 
CK*23 . 10 , 8 : PLOT K,150:DRAUTO K,160:NEX 
T K : SOUND 0.0. 0,0 
OT 530 X=1 : Y=0 : ET=4 

GG 540 FOR R = 1 TO 15:X=1 
ZT 550 FOR 1=1 TO H 
DZ 560 SBS=CLSCI,IJ 
EJ 570 CL=ASC CSBS3 -64 

UX 580 FOR X=X TO X+1:60UND 0 . R N D C 1 3 *2 5 5 . 

10. 8 : COLOR CL:PLOT X,Y:DRAUTO X,ET:NEX 
T X 

UJ 590 SOUND 0 , 0 , 0 , 0 : NEXT I 
PP 600 X = 1 : Y = ET *1 : ET = Y + 4 
ZM 610 FOR 1=1 TO H 
KG 620 SBS=CL1S (I , 13 
RY 630 CL1=ASC (SBS3 -64 

PH 640 FOR X = X TO X*l:SOUND 1 , R N D C 1 3 **2 5 5 . 
10. 8 : COLOR CLl:PLOT X. Y:DRAUTO X . ET : NE 
XT X 

V ft 650 SOUND 1 , 0 , O , 0 : NEXT I : Y = E T * 1 : E T = Y * 4 
JU 660 NEXT R 

EZ 670 JNK = USR (ADR C'hhaGhnrahaiBhaOhnHhatDl* 
□rannaaoj lomoraa locnamancara-o-Q* 1 ') ,scrn.adk,7 
680 ) 

01 680 UEOUS (7681 . 76813 = CHRS (PEEK (712) 3 

UJ 6 9 0 FOR X = 7 6 8 2 TO 7 6 8 4 : UE 8 U 5 ( X , X 3 = C H R S 
(PEEKCK-6974) 3 : NEXT X 
TU 700 REM UALUt CHANGE OF UEAUING 
ZU 710 ? "sDo you wish to change the valu 
e? ( Y/N) " : G E T Ml,K: IF K<>89 THEN 780 
NP 720 TRAP 730 

ZD 730 ? "4T y p e a letter between A (darke 

StJ and O ( 1 i ghtest3 " : GET M1.K:IF K<65 
OR K >-7 9 THEN 730 
PY 740 U-K-64 

UM 750 A =PEEK ( 7123 : POKE 712, U:? "iUalue O 
K? (Y/N3 " ; : GET Ml,K:lf K<>89 THEN POKE 
712 , A 

PU 760 IF K < > 8 9 THEN 730 
JK 770 TRAP 40000 

UB 780 ? "fsueaoe again? (Y/NJ " : GET Ml . K : I 

F K = 8 9 THEN GOSUB 1530:IF K=89 THEN 10 


0 

CO 790 ? "iReturn to nenu? (Y/N3 " : GET Ml, 

K : I F K = 8 9 THEN POP :GOTO 1010 

BM 800 ? "* Leave program? ( Y/N ) " : GET Ml, 

K : IF K<> 89 THEN 780 

PM 810 ? "* sure? ( Y/N 3 " : GET Ml , K 

: I F K = 8 9 THEN GRAPHICS 0 : END 

MZ 820 REM TITLE ROUTINE 

PX 830 GRAPHICS 2»16 : COLOR 2:P0SITI0N 0.0 

JU 840 FOR LG = 0 TO 4:? M6 ; "S*2*l3*!3*!3*a*i3* 

S*J3«i3":FOR D L = 1 TO 30:SOUND 0,RND(1)«2 
00,10,8: NEXT DL 

UC 850 ? M6 ; : FOR DL = 

1 TO 3 0 : SOUND 1. RND (13*208, 10, 8 : NEXT D 
L : NEXT LG 

HU 860 FOR DL=1 TO 300:NEXT DL:SOUND 0.0. 

8,8: SOUND 1 , 8 . 0 , 8 : SOUND 1 , 9 6 . 1 0 , 8 : P O S I 
TION 0,4:? M6;" THE 

ZS 870 FOR D L = 1 TO 100:NEXT DL: SOUND 0,12 

1 . 10 . 8 : POSI T ION 0.5:? ttb : " COLOR L 

OOM 

GS 880 POSITION 0.0 

LU 890 FOR DL=1 TO 100:NEXT DL : SOUND 2.81 

. 10. 8 : POSITION 0,6:? »6 ; " BY GMH 


UU 900 FOR L = 1 
RD 910 FOR S=0 
ZJ 920 RETURN 
UZ 930 REM SET 


T 0 800 : NEXT L 

TO 3 : SOUND S.0 

UP 


0 : NEX T S 


o 


o 


o 
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2 . . DISKETTE 1 


o 


VT 940 POKE 54286 , 8 : GRAPHICS 8:POKE 87,11 
: POKE 623 > 192 : POKE PEEK (580) + 256*PEEK ( 
561) •♦■166, 143 : RESTORE 

UP 958 ADDRES=1536 : POKE 54286, 6l:F0R K=0 
TO 18 : READ P:POKE ADORES+K, P : NEXT K:P = 
INT (ADDRES/256) : POKE 513. P 
UX 960 POKE 512, ADDRES-256*P : POKE 51286.1 
92 : DAT A 72,173.111,2,41,63.111.10.212. 
111,27,208.169,0,111.26,208,101.61 
ZT 970 RETURN 
UR 980 REM MENU 

KG 990 GRAPHICS 2*16 : POSITION 1,5:? «6 ; " 

MENU £3*J3~" 

OP 1000 FOR D=1 TO 500 : NEXT D 

VB 1010 GRAPHICS 0 : POKE 752-l:P0KE 710.21 

0 

KZ 1020 POSITION 0,8:? •• MENU 


MH 

OS 
FN 
JX 
LC 
H J 
ME 
UR 


1300 GET **1 , K : I F K<19 OR K>50 THEN 130 
8 

1310 POKE 752.1 

1320 ON K-18 GOTO 1330,1370 
1330 ? :? : ? ■■Insert and queue tape” 

1310 ? "press ■aataaH, type tamuMauM” 

1350 GET wl.K 

1360 OPEN «2 . 1 , 128 , ”C :": GOTO 1120 
1370 ? : ? : ? "Insert diskette and pres 


GU 

GC 

FZ 

cx 

DX 


1380 POKE 761,255 

1390 IF PEEK (761) <> 12 THEN 1390 
1100 POKE 761,255 
1110 OPEN **2 , 1 . 0. "D : UEAUING" 
1120 ? : ? : ? : ? " ■HHraHHdHBHHI 


NL 

AN 

KZ 

KF 

KI 

II 

NN 

IN 

XV 

N J 

ZV 

HD 

PS 

ZO 

IM 


1030 

1010 

1050 

1060 

1070 

1080 

1090 

0 

1100 

1110 

1120 

1130 

1110 

1150 

0 

1160 

1170 

press 


? " 

? : ? ■• 

CLOSE 
GET **1 


1 CREATE NEW UEAUING" 

2 SAVE UEAUING" 

3 LOAD OLD UEAUING" 

1 LEAUE PROGRAM" 

Selection ?■■ 

Ml : OPEN Ml , 1 , 0 , "K : " 

, K : I F K < 1 9 OR K>52 THEN 101 


A = K- 4 8 

ON A GOSU8 80,1130.1280.810 

GOTO 1010 

REM SAUE PATTERN 

? :? :? " S awe to: 1- .CASSETTE 

2 - - DISKETTE" 

GET Ml , K : IF K<!9 OR K>50 THEN 111 

ON K-18 GOTO 1170-1200 
? :? "Place tape in recorder":? ■• 

RECORD and PLAY":? "Then type 


O 


HO 1180 GET Ml , K 

KX 1190 OPEN M2. 8, 128, "C : " : GOTO 1210 
RN 1200 ? : ? : ? "Insert diskette and pres 

s ■aoamtaCM" : GET Ml, K: OPEN m2 - 8 . 0 . "D : UE 


AWING" 

UU 1210 ? : ? : ? :? ■HHfflOClHBCJrannHQCM ■ ■ 

LG 1220 ADHI=INT ( ADX/256) : ADLO=ADX- ADHI*2 
56 

EV 1230 MODE=PEEK (87) 

LQ 1210 10=861 : POKE IO+2.1l:POKE 10*1. ADL 

O : POKE 10+5, ADHI 

UI 1250 POKE 10 + 8, 1 :P0 KE 10 + 9.30 

MK 1260 JNK = USR (ADR ( " h hhJSL UH" ) . 32) : CLOSE 


M2 

AV 1270 RETURN 

BZ 1280 REM LOAD OLD PATTERN 

RM 1290 ? : ? :? "Load fron: 1. .CASSETTE 


AN 

LQ 

BO 

UP 

MR 

YX 

IE 

MT 

ET 

PU 

IT 

CX 

BU 

DM 

LR 

OB 

TU 

KF 


YB 

PH 

LH 

UC 

JF 

FM 


LR 

JU 

BM 


1130 GOSUB 930 

1110 ADHI = INT (ADX/256) : A D L 0 = A D X - A D H I**2 
56 

1150 10=861 : POKE I0+2.7:P0KE IO+l.ADLO 

: POKE 10+5. ADHI 

1160 POKE I O + 8 , 1 : P O KE 10 + 9,30 

1170 JNK=USR (ADR ( “ h h h£3L UH" ) ,32) : CLOSE 

M2 

1180 POKE 712 , ASC (UEAUS (7681 . 7681) ) 
1190 FOR X = 7 0 8 TO 710:POKE X, ASC(UEAUS 
(X+6971 , X+6971) 1 : NEXT X:POKE 559,0 
1500 LOD = l : POP : G O T O 90 
1510 REM ERASE UEAUING AND RESET 
1520 ? "* ERASING OLD PATTERN" 

1530 FOR U = 1 TO 1 0 : C L $ ( U , U ) = " e " : C L 1 S ( U 
, U) ="e" : NEXT U 

1510 SBS = " •• : SB1S=" ":CR$=" " 

1550 X=1 : Y=0 : ET=1 

1560 FOR R = 1 TO 15:X = 1 

1570 FOR 1=1 TO H 

1580 SB$=CLS(I,I) 

1590 CL = ASC (SBS) -61 

1600 FOR X = X TO X + l : SOUND 0 , R N D ( 1 ) *»25 5 

. 10. 8 : COLOR CL: PLOT X,Y:DRAUTO X , E T : NE 
XT X 

1610 SOUND 0 , 0 , 0 , 8 : NEXT I 
1620 X=1 : Y=ET+1 : ET=Y+1 

1630 FOR 1=1 TO H 

1610 SB$=CL1S (I > I) 

1650 CL1=ASC (SBS) -61 

1660 FOR X=X TO X+l :SOUND 1,RMD(1)«Z55 

,10,8: COLOR CL1:PL0T X,Y:DRAUTO X.ET:N 
EXT X 

1670 SOUND 1, 0 , 0, 0 : NEXT I : Y = E T * 1 : E T = Y * 

1 

1680 NEXT R 
1690 RETURN 


type-in music construction software 


O 


THE MUSICIAN 


LISTING 1 

OF 10 REM THE MUSICIAN 
XQ 20 REM BY ANGELO G I A MB R A 
FU 30 REM (c) 1985. ANTIC PUBLISHING 

RB 10 S I = 1 : P O KE 65. 0 : GOTO 2060 
DC 50 IF PEEK (20) <TEMPO THEN 50 
EM 60 A=PEEK(761) : RETURN 

YX 70 FOR 1 = 1 TO SI-1 : PITCH = A5C (SOMGS (I - I 
) ) 

YC 80 IF PITCH=255 THEN POKE Cl.ASCtSONGS 
(I + l.I + l)) '.POKE C2 . ASC (SONGS (1 + 2 • 1*2) ) 

JU 90 IF PITCH=255 THEN POKE C3,ASC(S0NGS 
(1*3. 1+3) ): 1=1+3 : NEXT l:GOTO 200 
LH 100 IF PITCH=25! THEN POKE C1,0:POKE C 
2 . 0 : P O KE C3. 0 : NEXT I 


JT 110 IF PITCH> 128 THEN SUST=1 : PITCH-PIT 
CH— 128 : IF PITCH=125 THEN PITCH=128 
QH 120 POKE C0. PITCH: POKE 20.0:IF PITCH=0 
THEN 170 

RJ 130 IF X > 1 5 THEN X = 5 : G = 1 : GOSUB 210 
HG 110 YPOS = ASC (YPOS (I . I) ) : IF YPOS>131 AN 
D YPOS<117 THEN YPOS=YPOS-128 : POSIT IOH 
X.YPOS:? M6 ; "*" : X=X+1 
QS 150 IF YPOS> 203 AND YP0S<219 THEN YPOS 
=YPOS-200 : POSITION X.YPOS:? »6;"b":X=X 
♦1 

XR 160 POSITION X.YPOS:? »6 ; N T 5 : POSIT ION 
X.YPOS-l:? M6 ; " I" : POSITION X.YPOS-2:? 

continued on next page 
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«6 ; " I" : X = X + 2 

DG 170 TEMPO = flSC ITS Cl- 13 ) "TEMP : GOSUB 50:1 
F SU5T OR P I T C H = 0 THEN SUST=0:NEXT I:G 
OTO 200 

UT 180 IF 80255 THEM POKE 764,255:IF A-2 

8 THEN 1=51 

KN 190 POKE 53760. 0:NEXT 1 

L 5 200 G = 0 : P O KE C1.0:POKE C2.0:POKE C3.0: 

POKE C0 , 0 : SUST=0 : RETURN 
GK 210 POKE 53277. 0 : NTS = , *» , ‘ : H = 3 : SETCOLOR 
4 . 0 . 0 : C=1 : SETCOLOR 0.7.4 
TU 220 SETCOLOR 1, 1, 4 : 5ETCOLOR 2.54.4:GR0 
PHICS 1 7 : POKE 559.46:POKE 53277.3 
PR 230 POKE 16, 112 : POKE 53774.112 
TR 240 POKE 756. CHRBASE/256 : POSITION 7,0: 
? »6 ;"pi ay* 1 

SK 250 POKE 53761 , 170 : POKE 53763 , 168 : POKE 

53765 , 168 : POKE 53767, 168 : POKE 53768.0 
: P O KE 53775, 3:IF G THEN RETURN 
FY 260 POKE 53254 , 60 : POKE 53255 , 188 : POKE 
53260, 0:POKE 54279 , PMBflSE : FOR L = 704 TO 
707 : POKE L,68:NEXT L 

LN 270 FOR L = 5 3 2 5 6 TO 53259:P0KE L.3:NEXT 
L : POKE 53248 , 60 : POKE 53249 . 92 : POKE 53 
250,124 : POKE 5 3 2 5 1 . 1 5 6 : G O T O 70 
JR 280 INPUT **1 , TEMP : INPUT nl.SI 

L« 290 FOR 1 = 1 TO SI:INPUT t*l, CHAS : SONGS C 

I , I) =CHflS '.NEXT I 

OE 300 FOR 1=1 TO SI : INPUT nl , CHAS : TS f I . I 

J = C H A S : NEXT l:FOR 1 = 1 TO SI 
QS 310 INPUT **1 . CHAS : YPOS C I , I 3 = CHAS : NEXT 
I : SI=SI+1 : POKE 53762, 0:POKE 53764. 0:PO 
KE 53768 . 0 : RETURN 

RL 328 POSITION 4.22:? **6;" "JDESCS:" 

" : NTFLAG=0 : RETURN 

IL 330 IF MOUEFLAG THEN POSITION XPOS-l.Y 

POS : GOTO 360 

XS 340 IF SUST THEN POSITION XPOS.YPOS+2: 

? »6 ; " •• 

YO 350 POSITION X P O S , Y P O S - 2 : ? n6;" M :POSI 
TION XPOS.YPOS 

UZ 360 IF SHARPFLAT = 3 THEN ? t»6 ; "S" 

FP 370 IF SHARPFLAT =1 THEN ? »6;"*-" 

AD 380 IF SHARPFLAT = 2 THEN ? «6;”b” 

OQ 390 IF MOUEFLAG THEN RETURN 

FS 400 M0UEFLAG=1 : XPOS=XPOS*l : RETURN 
UP 410 IF SHARPFLAT THEN GOSUB 330 
LI 420 POSITION XPOS . YPOS ♦ 1 : ? «6 ; ":POSI 
TION KPOS.YPOS 3 

MP 430 ? «6;" ": POSITION X P O S ♦ 1 . Y P O S + 1 : ? 

**6 ; " POSITION X P 0 S * 1 . Y P O S - 3 : ? «6 ; " 

DO 440 IF SHARPFLAT THEN POSITION XPOS-1, 
YPOS + 1 : ? M6; M "POSITION X P O S - 1 , Y P O S - 1 
: ? »6 ; " 

ZG 450 IF SUST THEN POSITION XP0S.YP0S+3: 
? **6 ; " ■■ 

UF 460 POSITION XPOS.YPOS:? «6;NTS;" " 

ZC 470 IF NTTYPEOl AND RFLAG = 0 THEN POSI 
TION XPOS , YPOS-1 : ? *»6 ; S T E Ml S ; •• "JPOSIT 

ION XPOS . YPOS-2 : ? **6 ; S T E M2 S ; 

YG 480 IF NTTYPE = 8 OR NTTYPE = 6 OR NT T YPE = 

3 THEN POSITION XPOS+1 , YPOS-2 : ? «6;STE 
MFLAGS 

FK 490 IF NTTYPE=6 OR NTTYPE=3 THEN POSIT 

ION XPOS+1 . YPOS-1 : ? t*6 ) S T E MF L A G S 
OL 500 IF NTTYPE=3 THEN POSITION XPOS+1, Y 

POS:? *»6 ; STEMFLAGS 

MC 510 IF D O T = 1 THEN POSITION XPOS+1, YPOS 
: ? **6 ; " 

LH 520 IF SUST THEN POSITION XPOS.YPOS+2: 

FA 530 IF RFLAG OR NTTYPE=1 THEN POSITION 

XPOS . YPOS - 1 : ? t* 6 ; * 1 : POSITION XPOS.YP 

OS-2 : ? t*6 ; 

NI 540 GOTO 320 

OG 550 REM POLL JOYSTICK 

G I 560 A=STICK C03 : IF A=15 OR RFLAG THEN 5 
90 

OD 570 IF A = 1 4 THEN IF YPOS>4 THEN YPOS = Y 
POS-1 : GOSUB 410:GOTO 550 
YQ 580 IF A = 1 3 THEN IF YP0S<18 THEN YPOS = 
Y P O S + 1 : GOSUB 410:GOTO 550 

XM 590 A = PEEK 1764 J : IF 80255 THEN POKE 76 
4, 255: GOTO 620 

RM 600 IF STRIG (0) =0 THEN 1020 
PE 610 GOTO 550 


OI 620 IF A = 4 2 THEN POSITION 4.22:? »6;"e 
xit y or n" : GOSUB 2490:GOTO 550 
EF 630 IF A = 4 6 THEN NTS = CHRS C239) :NTTYPE = 
l:DESC$="whole»:RFLAG=0:GOTO 900 
MX 640 IF A=8 THEN S ON G S l S I , S 1 3 = C H R S t 2 5 4 3 
: SI = SI + 1 : POSITION 4,22:? n6;"chord off 
" : GOTO 550 

FI 650 IF A = 1 8 THEN 1780 

MU 660 IF A = 4 5 THEN GOSUB 1670:GOTO 550 

IU 670 IF A = 6 3 THEN GOSUB 1900:GOTO 1970 

JA 680 IF A = 0 THEN GOSUB 1900:GOTO 2010 

FE 690 IF A = 5 7 THEN N T S = C H R S C 2 3 9 1 : N T T Y P E = 
2 : DESCS = "ha 1 f : R F L A G = 0 : GOTO 870 
ME 700 IF A = 4 0 THEN 940 

JN 710 IF A = 4 7 THEN NTS = CHRS (148) :NTTYPE = 

4 : DESC$ = M 9uarter" : R F L A G = 0 : GOTO 870 
BO 720 IF A = 5 3 THEN N T T Y P E = 8 : S T E MF L A G S = C H 
RS £2243 : DESC5 = "eighth M : EIGHTFLAG = 1 : RFL 
AG=0 : NTS=CHRS (148) : GOTO 900 
GN 730 IF A = 2 7 THEN N T T Y P E = 6 : S T E MF L A G S = C H 
R S (224) :DESCS = "sixteenth":RFLAG = 0:EIGH 
TFLAG=1 : NTS=CHRS (1483 : GOTO 900 
TO 740 IF A = 2 6 THEN NTT YPE = 3 : STEMFL AGS = CH 
R S (2243 : DESCS = "thirty sec" : RFLAG = 0 : EIG 
HTFLAG=1 : NTS=CHR5 (1483 : GOTO 900 
CD 750 IF A = 3 4 THEN DOT = l:GOTO 900 
GK 760 IF A = 7 THEN GOSUB 1270:GOTO 550 

GB 770 IF A = 6 2 THEN SUST = 1:G0T0 900 

JX 780 IF A = 5 4 THEN SI = l:FOR 1 = 1 TO 3:S0U 

ND 0 . 15 . 10 , 10 : FOR D = 1 TO 8:NEXT D : SOUN 
D 0 . 0 . 0 , 0 : NEXT I 

UF 790 POSITION 4.22:? «6;"song cleared": 

GOTO 810 
PB 800 GOTO 820 

XK 810 FOR 1=1 TO 300 : NEXT I : F I R S T T I ME = 0 : 
GOTO 2120 

MF 820 IF A = 2 1 THEN S H A R P F L A T = 2 : G O T O 900 

NM 830 IF A = 9 0 THEN SHARPFLAT = 1 : GOTO 900 

KO 840 IF A = 1 0 THEN GOSUB 2 1 0 : F I R S T T I ME = 0 
: GO T O 2120 

NC 850 IF A = 7 THEM GOSUB 550:GOTO 900 
PR 860 IF A = 3 5 THEN S H A R P F L A T = 3 : G O T O 900 
OX 870 IF EIGHTFLAG THEN POSITION XPOS+1. 
YPOS-2:? M6;* 1 " : POSITION XPOS* 1 , YPOS- 1 

: ? tt 6 ; ■■ 

CN 880 IF NOT DOT THEN POSITION XPOS*l.Y 
POS:? **6 ; •• ■■ 

HE 890 GOSUB 410:GOTO 550 

LO 900 IF NTTYPEOl THEN GOSUB 410:GOTO 5 
50 

FN 910 POSITION XPOS . YPOS-2 : ? «6 ; : POSI 

TION XPOS. YPOS-1 : ? **6 ; " " : IF EIGHTFLAG 
THEN POSITION XP0S*1, YPOS-2 : ? **6 ; " 

DO 920 IF EIGHTFLAG THEN POSITION XPOS+1, 
YPOS-1 : ? «6 ; ’• " : IF NOT DOT THEN POSIT 
ION XPOS + 1 , YPOS : ? **6;" •• 

GT 930 GOSUB 410:GOTO 550 

CS 940 IF NTTYPE=4 THEN NTS='V 

FH 950 IF NTTYPE=8 THEM NTS=»J" : NTTYPE=9 

ND 960 IF NTTYPE=2 THEN NTS="«" 

MC 970 RFLAG=1 : IF YP0S=12 THEN GOSUB 410: 
GOTO 550 

UI 980 IF Y P O S > 1 1 THEN 1010 

FN 990 IF Y P O S < 1 1 THEN FOR YPOS = YPOS TO 1 
1 STEP 1 : GOSUB 410:NEXT YPOS 
QS 1000 GOTO 550 

XU 1010 FOR YPOS=YPOS TO 13 STEP -1:G0SUB 
410 : NEXT YPOS:GOTO 550 
OC 1020 NX= (YPOS = 43**4 + ( YPOS = 53 *7* (YPOS = 6) 

*13*(YPOS=7)*19*(YPOS=8)*25*(YPOS=9)*2 
8 + ( YPOS = 103 *34 + (YPOS = 113**40 
LI 1030 NX = NX + (YPOS = 123 *43* ( YP0S = 133 *49+ ( 
YPOS = 143*+55+ (YPOS = 153 *61+ (YP05 = 163+*64» 

( YPOS = 173 *70+ (YPOS=183*76 
SE 1040 IF SHARPFLAT = 1 THEN NH = NX-3 
QQ 1050 IF SHARPFLAT=2 THEN NX=NX+3 
TH 1060 IF SHARPFLAT=3 THEN SHARPFLAT=0 
OU 1070 IF RFLAG THEN SOUND 0 , 1 0 , 8 , 1 0 : G O T 
O 1090 

NM 1080 SOUND 0 . UAL (SCALES (NX , NX + 23 3 , 10 , 1 
0 

MM 1090 FOR 1=1 TO 50:NEXT I : SOUND 0.0.0, 

0 : TEMPO = 100 : IF DOT THEN T S C S I + 1 , S I ♦ 1 D = 

BR 1100 TEMPO = 120+* (NTTYPE = 1) + 60++ CNT TYPE = 2 
3 + 30++(NTTYPE = 43 +15* (NTTYPE = 83 + 7»+ (NT TYP 
E=63+3*(NTTYPE=33 
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DM 

BB 

A J 
LY 
TC 


QS 

BU 

JX 

D I 

NO 

XK 

ED 


MN 

XN 


BR 
PU 
ft L 


D T 

OX 

ID 

GR 

ZM 

C V 
LO 

PU 

T C 

MU 

MT 

EM 
ft N 


HR 


YT 

P J 

OS 

LP 

BB 

XU 

HI 

LV 

cu 

TK 


1110 IF DOT THEN TEMPO = TEMPO»l - 5 
1120 PITCH=VAL (SCALES (NX . NX + 2J J : IF SUS 
T THEN PITCH=PITCH+128 : IF PITCH=256 TH 
EN PITCH=253 

1130 SONGS (SI) =CHRS (PITCH) :TS(SI.SI)=C 
HRS (TEMPO) 

1110 IF RFLftG THEN S O N G S C S I ) = C H R S ( 0 ) : D 
OT = 0 : SUST = 0 : DESCS = "Suarter" : NTTYPE-4 
1150 YPOS (SI , SI) =CHRS (YPOS) : IF SHARPFL 
ft T = 1 THEN YPOS (SI , SI) =CHRS CftSC ( YPOS (SI 
, SI) ) *128) 

1160 IF SHARPFLftT = 2 THEN YPOS (SI , 51) =C 
HRS (ASC (YPOS (SI . SI) ) +200) 

1170 REM MAKE NEU NOTE 

1180 SI =S I ♦ 1 : POSITION 3 . 0 : I F NTS=CHRS( 
148) THEN NT S = " 

1190 IF NT$ = CHRS (239) THEN NTS = M o» 

1200 S T E Ml S = " l":STEM2S = " I" : S T E MF L ft G S = " 

♦ "•■IF F IR S T T I ME = 0 THEN F I R S T T I ME = 1 : G O T 
O 1220 

1210 GOSUB 4 10 : T R ft P 40000:IF RFLftG THE 
N NTS = ,, » n : RFLftG-0 

1220 MOVEFLAG=0:SVEXPOS=XPOS:XPOS=XPOS 

* 2 : I F X P O S > 15 THEN S U B F L = 1 : X P O S = 3 : G 0 S U 
B 2130 

1230 IF SVEXPOS=l THEN SVEXPOS=3 
1240 STEM1S=CHRS (130) : STEM2S-CHRS (130) 

: STEMFLfiGS=CHRS (224) : IF NTS="»" THEN N 
T S = C H R S (148) 

1250 IF NT S = *■ o •• THEN NT S = C H R 5 (239) 

1260 DOT=0 : SUST=0 : GOSUB 410:GOTO 550 
1270 POSITION 2.22:? *»6 ; •• enter chor 
d " : POSITION 2.23:? **6;"then press re 

1280 FOR 1=1 TO 3 : SOUND 0 . 15 . 10 . 10 : FOR 
D = 1 TO 6 : NEXT D:SOUND 0.0.0.0:NEXT I 
1290 C H $ = *' •* : OPEN **1 . 4, 0. " K : 11 : POKE 

702. 0 : Cl =1 : XP=XPOS-l 
1300 A=PEEK(764) : IF ft=255 THEN 1300 

1310 GET ** 1 , ft : POKE 764,255:IF A = 155 TH 
EN 1470 

1320 IF CI-6 THEN 1300 
1330 CHS (Cl . Cl) =CHR5 (A) 

1340 IF CHRS(A)="6" THEN CHS(CI,CI)="I 
'* : SIXTH = 1 

1350 IF CHRS (ft) = "7" THEN CHS (Cl , Cl) ="t 

" : SEVENTH -1 

1360 CHAS = CHS (Cl . Cl) 


1370 IF C H A S = " + " THEN C H ft S = C H R S ( 1 9 ) : G O 
ODCHAR - 1 

1380 IF C H A 5 = " - " THEN C H ft S = C H R S ( 1 8 ) : G O 
ODCHAR = 1 

1390 IF C H A S = "**" THEN C H A S = C H R S 1 1 6 ) : G O 
ODCHAR=l 


1400 IF CHA5-"*" THEN CLOSE s*l:POSITIO 
N XPOS-1.20:? »6 ; " ,, :SECONDPASS = 0: 

GOTO 1630 

1410 IF CHftS-"a" OR CHAS="b" OR CHftS = " 
c •• OR CHAS = "d" OR CHAS="e" OR CHAS = "f M 
OR CHftS = ,, 9" THEN 1450 
1420 IF ( C H A S = " M" OR CHAS="j") AND SEC 
ONDPASS THEN 1460 

1430 IF (GOODCHAR OR SIXTH OR SEVENTH) 
AND SECONDPASS THEN 1460 
1440 GOTO 1300 
1450 SECONDPASS=l 

1460 POSITION X P . 2 0 : ? «6 ; CHflS : GOODCHAR 
=0 : C I=C I ♦ 1 : X P = X P ♦ 1 : GOTO 1300 
1470 CLOSE nl: POKE 7 0 2 . 6 4 : S E C O N D P A S S = 0 
: CHAS=CHS (1.1) 

1480 NX = 112*(CHAS = ,, c")+106*(CHftS = ,, d ,, ) + 
100**(CHAS = "e") +97*(CHftS = "f") ♦91*(CHAS = 
"9 ,, )*85*(CHAS = “a")+79*(CHAS = ,, b") 

1490 IF C I = 2 THEN 051 = 12 : OS2 = 21 : GOTO 1 
610 

1500 051 = 12 : 052 = 21 : CI = 2 : IF C H S ( 2 . 2 ) = ■■** 

■■ THEN NX = NX-3:CI = 3 

1510 IF CHS (2 . 2) = •■*»" THEN NX=NX+3:CI=3 


MM 1520 IF 
OH 1530 IF 
OZ 1540 IF 
TK 1550 IF 
18 

VP 1560 IF 
= 18 

RX 1570 IF 


SIXTH THEN SIXTH=0 : 052=27 
SEVENTH THEN SEVENTH=0 : 052=30 
CHS (Cl . Cl) =“ + M THEN 052 = 24 
CHS (Cl, Cl) ="d" THEN 051 = 9:052 = 

CHS(CI,CI)="- ,, THEN 051 = 12:052 

CHS (Cl . Cl) ="w" THEN IF CHS(CI+ 


l.CI + l)-=" ■* THEN 051 = 9 : 0S2 = 21 

PA 1580 IF CHS (Cl . Cl) =•■«•* THEN IF CHS(CI + 

1 . CI+2) ="a j" THEN 051=12:052=33 
BM 1590 IF CHS (Cl . Cl) ="*i" THEN IF CHSCCI + 

1,CI*1)= ,, t" THEN OSl = 9 : 052 = 30 
OE 1600 IF CHS (Cl . Cl) = "*»" THEN IF CHSICI* 

1. CI*1) =”l " THEN 051 = 9 : 052 = 27 
10 1610 SONGS (51. 51) =CHRS (255) :SONGS (51*1 
, S I ♦ 1 ) =CHR5 ( V A L (SCALES (NX. N X ♦ 2 ) ) ) 

GT 1620 SONGS (SI +2. 51+2) =CHRS (VAL (SCALES ( 
NX — 0S1. NX-OS1 + 2) ) ) : SONGS (SI + 3 , SI + 3) =CH 
RS (VAL (SCALES (NX-0S2. NX-0S2+2) ) ) 

BR 1630 SIXTH=0 : SEVENTH=0 : S I = S I + 4 : POSITIO 
N 2.22:? «*6 ; ■■ ”:POSITI 

ON 2.23:? **6 ; " 

YM 1640 POSITION 7.22:? «6;DESCS:IF CHAS= 
"* n THEN RETURN 

LR 1650 SOUND 0 . AS C ( S 0 NG S ( S I - 3 . S I - 3 ) ) . 1 0 , 
10 : SOUND 1. ASC (SONGS (SI-2, SI-2) ) ,10,10 
: SOUND 2. ASC (SONGS (SI-1, SI — 1) ) .10.10 
GT 1660 FOR 1=1 TO 20:NEXT I:S0UND 0,0,0. 

0 : SOUND 1 . 0 , 0 . 0 : SOUND 2 , 0 , 0 , 0 : RETURN 
YY 1670 FOR 1=1 TO 3 : SOUND 0 . 15 , 10 , IB : FOR 
0=1 TO 6 : NEXT Q.SOUND 0,0,0,0:NEXT I 
CC 1680 POSITION 5 . 2 0 : ? **6 ; " c h a n g e tenpo" 
: POSITION 5,22:? **6 ; •• ” 

MH 1690 POSITION 8.22:? **6 ; C H R S ( 2 4 3 ) ; C H R S 
(236) : CHRS (239) ;CHRS(247) ;CHRS(229) ;CH 
R S (242) :TEMPO = 0.25 
LU 1700 A=STICK(0) 

KV 1710 IF A = 1 4 THEN POSITION 8.22:? **6 ; C 
HRS (230) ; CHRS (225) ;CHRS(243) ;CHRS(244) 
; CHRS (229) ; CHRS (242) 

KO 1720 TEMPO=-0 . 25 : GOTO 1700 
XS 1730 IF A = 1 3 THEN 1690 
MR 1740 IF STRIG (0) =0 THEN 1760 
QX 1750 GOTO 1700 

MD 1760 TEMP = TEMP*TEMPO : FOR 1 = 1 TO 3 : SOUN 
D 0 . 15 , 10 , 10 : FOR 0=1 TO 6:NEXT Q:SOUND 
0 , 0 , 0 . 0 : NEXT I 

IJ 1770 POSITION 5.20:? »6 : " 

" : POSITION 4,22:? «6 ; " •'JDESCS:" 

■■ : RETURN 

NF 1780 SI=SI— 1 : FOR 1=1 TO 3:S0UND 0.15.1 
0 , 1 0 : F O R D = 1 TO 8:NEXT D 
YO 1790 SOUND 0.0.0.0.NEXT I:POSITION 7.2 
2 :? tt6:"cancel led" 

RB 1800 POSITION XPOS , YPOS-2 : ? we:" ":PO 
SITION XPOS. YPOS-1 : ? »»6 ; •• ":POSITION 
XPOS, YPOS:? **6;" " 

BM 1810 IF SHARPFLftT THEN POSITION XPOS-1 
-YPOS:? **6;" " 

IB 1820 IF SUST THEN POSITION XPOS.YPOS+2 
: ? »6;" ■* 

QO 1830 XPOS = SVEXPOS : IF SKI THEN SI = 1 
UD 1840 IF 5 1 < 4 THEN 550 

SG 1850 IF ASC (SONGS (SI-3 , SI-3) ) =255 THEN 
SI = SI-4 : POSITION 3,22:? ll6;"chord can 
cel led" 

FL 1860 FOR 1 = 1 TO 100:NEXT KPOSITION 3. 
22:? **6;" •* 

SD 1870 GOTO 550 

RX 1880 IF TS (SI . SI) ="4“ OR T S ( S I . S I ) = " 6 " 
OR TS (SI , SI) ="8" OR TS (SI . 51) ="3" THE 
N 5TEMFLAGS="\" 

YG 1890 GOSUB 320 

LJ 1900 GRAPHICS 18:POKE 53277.0:POKE 559 

.34:? t*6;" ENTER SONG NAME" 

EF 1910 OPEN »1 . 4 , 0 . "K" : F I LE N A ME S = " D : " : 1= 
3:? *»6 : ? **6 : ? t*6 ; " 

DG 1920 POKE 16. 112 : POKE 53774,112 
OE 1930 GET **1 , CH : IF CH = 155 THEN CLOSE **1 
: RETURN 

CY 1940 IF C H = 1 2 6 THEN POSITION (PEEK(85) 
-1) , (PEEK (84) ) : ? **6 ; " "; :POSITION (PEE 

K(85) -1) , (PEEK (84) ) :I=I~l:GOTO 1930 
FN 1950 IF CHRS (CH) <"A" OR CHRS (CH) >"Z" T 
HEN 1930 

UR 1960 FILENAMES (I) =CHRS (CH) : ? «*6;CHRS(C 
H + 128) ;: 1 = 1*1 : GOTO 1930 
FM 1970 IF LEN (FILENAMES) =2 THEN OPEN »1 , 
8 , 0 , "C : ■■ : FOR 1 = 1 TO 128:PUT «*1,CH:NEXT 
I : GOTO 1990 

GU 1980 OPEN **1 , 8 . 0 , FILENAMES 
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ZP 1990 ? **1 ; T EMP : ? **l;SI-l:FOR 1 = 1 TO SI 

-l:CHflS = SOHG$m :? Ml ; CHftS : NEXT l:FOR 

1 = 1 TO SI-1 : CHfl$ = T5 III 

IK 2000 ? **1 ; CHftS : NEXT I:FOR 1 = 1 TO SI-1: 
CHftS = YPOS(I) :? **1; CHftS : NEK T l:CLOSE **1 
: FIRST TIHE = 0 : GOTO 2120 
IT 2010 F I R S T T I ME = 0 : TRftP 2040 

BO 2020 IF LEN (FILENAMES) =2 THEN OPEN «1, 
4 , 0 , "C : •' : FOR 1 = 1 TO 128:GET **1,CH:NEXT 
I : GOTO 2050 

UT 2030 OPEN **1 , 4 , 0, FILENAMES : GOTO 2050 
NM 2040 CLOSE **l:GOTO 2120 

BY 2050 51=1 : NTS="»" : GOSUB 280:CLOSE «1 : G 
OSUB 210 : FIRSTTIME-0 : GOTO 2120 
LK 2060 REM INITIALIZE SCREEN 

IQ 2070 DIM NTS (1) . STEM1S (1) , STEM25 (U , SO 
NGS (10001 , T $ (1000) , YPO5C1000) .SNA ME S t 1 

2 J . FILENAMES (121 

XF 2080 DIM SCALES (117) , STEMFLAGS Cl J . DESC 
$(15) : DESCS="5uarter" : DIM CHS (5) , CHAS ( 
1 J 

PD 2090 SCALES=" 0280290310330350370400420 
45047050053057060064068072076081085091 
096102108114121128136144153162173182" 
YH 2100 SCALES (100) ="19320421 7230243255" : 
GOSUB 2200 : TEMP = 1 

VV 2110 C0 = 53760 : Cl = 53762 : C2 = 53764 : C3 = 537 

66 

GR 2120 NT S = *' ••* : 5 T EMI S = " I" : STEM2S=" I" : NTT 
YPE = 4 : DE5CS = "*luarter" : YPOS = 12 : XP0S = 1 
IP 2130 POKE 53277 . 0 : GRAPHICS 17:SETC0L0R 
0 . 0 . 0 : POKE 756. INT (CHR8ASE/256) : POSIT 
ION 3.0:? M6:"the Musician” 

CX 2140 POKE 16 . 112 : PO KE 53774.112 
MM 2150 POSITION 7,22:? n6 : DESCS : POKE 559 
, 4 6 : P O KE 53277. 3:P0KE 53254 , 60 : POKE 53 
255, 188 : POKE 53260, 0-POKE 623.4 
CZ 2160 FOR I=CHRBASE TO C H R B A S E ♦ 7 : P O KE I 
, O : N E X T I : F 0 R L = 704 TO 707:POKE L.120: 
NEXT L 

KY 2170 FOR L=53256 TO 53259:POKE L.3:NEX 
T L : POKE 5 3 2 4 8 , 6 0 : P O KE 53249 , 92 : POKE 5 
3250 . 124 : POKE 53251,156 
GE 2180 IF SUBFL THEN SUBFL=8 : RETURN 
SR 2190 GOTO 1190 

PR 2200 GRAPHICS 1 7 : P = 5 7 8 5 6 : P MB A S E = I N T C C C 
PEEK(106)-12)*256)/1024)**1024 
SD 2210 CHRBASE = INT C ( ( (PEEK (106) -16) **256) 
/1024-1) I **1024 

CT 2220 POKE 16,112:POKE 53774,112 

RB 2230 FOR 1=1 TO 15:POSITION 3.1:? «6 ; " 
ncao irmSHHHEim” : NEX T I:? »6 : ? «6 : ? **6 ; " 

MS 2240 DIM ES (76) : FOR 1=1 TO 76 : READ A : E 
S ( I . I ) =CHRS C A ) : NEXT I 
UN 2250 DATA 104.104,133.193.104,133.192, 


104,133.197,104,133 

OH 2260 DATA 196,169.226,133,195,169.0.13 

3.194.160.0. 162.0.177.194.145 

YF 2270 DATA 192,200.192,0.208,247.232.22 
4,5,240,10,238.193,230 
01 2280 DATA 195,160,0,169,0,240,232,162, 

0.160.0.169.0,145,196,200 
1C 2290 DATA 192,0.208.249,232.224,5.240, 

8.160.0. 230.197.169.0.240.236.96 

IE 2300 X = USR ( ADR (ES) . CHRBASE , PMBASE) : P = 5 
7344*176 : FOR I = C H R B A S E + 1 7 6 TO CHRBASE* 
183 : POKE I , P E E K ( P ) : P = P ♦ 1 : N E X T I 
VH 2310 P 57344*184 : FOR I = C H R B A S E + 1 8 4 TO 
CHRBASE*191 :POKE I.PEEKCPJ :P=P+1:NEXT 
I 

VH 2320 P =57344 + 24 : FOR I = CHRBASE*128 TO C 
HRBASE* 135 : POKE I , P E E K C P ) : P = P ♦ 1 : N E X T I 
: P = 57344 + 112 

FI 2330 FOR I=CHRBASE*96 TO C H R B A S E + 1 0 3 : P 
OKE I , PEEK IP) : P = P + 1 : NEXT I : P = 5 7 3 4 4 + 4 8 0 
OF 2340 FOR I=CHRBASE+256 TO CHRBASE+263: 

POKE I. PEEKCPJ : P = P + 1 : NEXT I 
CB 2350 FOR I=CHRBASE+80 TO C H R B A S E * 8 7 : R E 
AD A : POKE I, A:NEXT I:F0R I=CHRBASE+64 
TO CHRBA5E+71 : READ A : POKE I.A:NEXT I 
UA 2360 FOR I=CHRBASE+48 TO CHRBASE+55 : RE 
AD A : POKE I.A:NEXT I 
NM 2370 START = PMBASE : PMBASE = PMBASE/256 
MP 2380 FOR I = 5T ART + 384 + 49 TO START + 384 + 8 
1 : POKE I# 240 : NEXT I 

CD 2390 FOR I = S T A R T + 5 1 2 + 4 9 TO STABT+640-4 
1 STEP 8 : POKE I.255:FOR Z=I+1 TO 1+7 : P 

OKE Z , 0 : N E X T Z:NEXT I 
RP 2400 FOR I = 5T ART *640*49 TO START + 768-4 
1 STEP 8 : POKE I,255:F0R Z=I+1 TO I+7:P 
OKE Z , 0 : N E X T Z:NEXT I 
CP 2410 FOR I = 5T ART + 768 + 49 TO START + 896-4 
1 STEP 8 : POKE I.255:F0R Z=I+1 TO I+7:P 
OKE Z, 0 : NEXT Z:NEXT I 
OX 2420 FOR I=START*896*49 TO START+1024- 
41 STEP 8 : POKE I,255:F0R Z= I * 1 TO 1+7: 
POKE Z , 0 : N E XT Z:NEXT I 
SX 2430 POKE 15, INT (CHRBASE/256) : A=CHRBAS 
E- (INT (CHRBASE/256) **25 6) :POKE 14. A 
YO 2440 POKE 54279 , PH8A5E : POKE 559, 46: POK 
E 53277.3 

UT 2450 POKE 53760 , 0 : RETURN 
AE 2468 DATA 48,24.28,48.24,28,48,24 
OT 2478 DATA 48,62.4,8.8,16,16,32 
SK 2480 DATA 0,36,44,52,36.44,52,4 
XO 2490 A=PEEK (764) : IF A=255 THEN 2490 
HE 2500 POKE 764,255:IF A<>43 THEN POSITI 
ON 4.22:? **6 ; •• " : RETURN 

UM 2510 FOR 1=1 TO 20:NEXT I 
YZ 2520 X = USR C58484) 


let your joystick select program hues! 


COLOR PALETTE 

LISTING 1 TYPO HCodes! 


ZC 10 REM COLOR PALETTE 

TP 28 REM BY JOHN U- FELTON 

FU 30 REM tcj 1985. ANTIC PUBLISHING 

JR 40 REM INITIAL COLORS 

HT 50 DATA 40.202,148,70 

PE 60 DATA 50,82.252.114.172.244.198,0 
BB 70 REM DISPLAY LIST 

CU 80 DATA 112,112,64.69.0,0,133.0.130.0, 

5,133.0.130.0.5.133,0.2,0,2.66.0.0,2.2 
,2,2,2,66,0,0,65 
EK 90 REM DISP- LIST INTERRUPTS 
TU 100 DATA 72,173.200,2,69,79.37.78.141. 


10.212.141.24.208.173.7.6.69.79.37.78. 

141.23.208.169.50.141.0. 2.169.6.141 
GR 110 DATA 1,2,104,64 

QH 120 DATA 7 2 . 1 7 3 . 0 . 6 , 6 9 . 7 9 , 3 7 , 7 8 . 1 4 1 . 1 0 
.212.141,22.208.173,1,6.69,79,37,78.14 
1,23,208,173,2,6.69,79,37.78.141.24 
YS 130 DATA 208,173.3,6.69,79,37.78.141.2 

5.208.169.106.141.0. 2.169.6.141.1.2.10 
4 , 64 

AS 140 DATA 72-173-200,2,69.79,37,78.141. 

10.212.141.24.208.173.7.6.69.79.37.78. 

141.23.208.169.142.141.0. 2.169.6.141 
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GZ 150 DATA 1.2-101,64 

QD 160 DATA 72.173,4,6.69.79,37.78.141,10 
.212,141,22.208,173.5.6.69,79.37,78.14 
1.23.208,173,6.6,69.79.37.78,141.24 

HZ 170 DATA 208,169,188.141.0.2.169,6.141 
.1.2.104,64 

DX 180 DATA 72,173.200,2.69.79,37.78,141, 
10,212.141.24,208.169.224.141.9.212.17 
3.7,6.69,79,37,78,141,23,208,104,64 

QU 190 REM U/B INTERRUPT 

AL 200 DATA 169,14,141,0,2,169.6,141.1.2. 
76,95, 228 

BS 210 DATA 104,160,219.162,6,169,6,32,92 
, 228 , 96 

HG 220 REM SCROLL SUBROUTINE 

HK 230 DATA 104,104,141.0,0,104.141.0.0,9 
6 

MO 240 DATA GREY , GOLD. ORANGE . RED , PINK. UIO 
LET. PURPLE. BLUE.CYAN.LT BLUE, TURQUOISE 

KP 250 DATA BLUE-GRN, GREEN , YLLH-GRN , ORNG- 
GRN.LT ORANGE 

PF 260 DIM PMS C1024J . SCS C700 J , C C12 ) , CRSS C 
10) , BLANK (10) , AS (20) , BLKS (10) .ROUTINES 
C10) 

MT 270 REM TITLE PAGE 

VQ 280 POKE 106 , PEEK (740) 

EA 290 GRAPHICS 0:SETCOLOR 3 , 5 , 6 : 5ETCOLOR 
0.14, 10: POKE 710, 0 : POKE 752,1 

PE 300 X=PEEK (56B) +PEEK(561) “256+9 : POKE X 
. 6 : POKE X + 1 , 6 

MC 310 POSITION 4,4:? "HHnHCHBfaEaHaOQ 


FA 320 POSITION 18,10:? "BY" 

GO 330 POSITION 13.12:? "JOHN W. FELTON" 
CN 340 REM INITIALIZE 

OK 350 RESTORE 100:FOR N=1550 TO 1778:REA 

D A : POKE N , A : NEXT N 

RP 360 POSITION 11,20:? "(BACK IN A MOMEN 
T) " 

EY 370 RESTORE 50:FOR N=1 TO 12 : READ A:CC 
N) = A : NEXT N 

XJ 380 RESTORE 60:FOR N = 0 TO 7 : READ A=POK 
E 1536+N , A : NEXT N 

MI 390 SCSC1)=" " : SCS C700) =SCS : SCS (2) =SCS 

YR 400 P MB ASE = 256* (PEEK (106) -8) 

MF 410 BSCH=INT ( P MB AS E/2 5 6 - 5 ) : BSCL=0 
PO 420 FOR N = 9 6 TO 208:POKE PMBASE+N. PEEK 
(57344+N) : NEXT N 
EY 430 REM SET UP DISPLAY LIST 
QA 440 GRAPHICS 17:POKE 559,0 

LU 450 DL=PMBASE~256*6 : SCRLOW=DL+22 : SCRHI 
GH=DL+23 

BH 460 RESTORE 80:FOR N=0 TO 32 i RE AD A : PO 
KE DL+N , A : NEXT N 

DR 470 POKE SCRLOU, BSCL : POKE SCRHIGH.BSCH 
: POKE DL+33 . PEEK (560) : POKE DL+34.PEEKI 
561) 

XK 480 POKE DL+4 , PEEK (88) : POKE DL+5.PEEK( 
8 9) : P O KE 560, DL-INT (DL/256)*256 : POKE 5 
61 , DL/256 

R I 490 N=PEEK (88) +PEEK (89) *256+400 : HIGH=I 
NTIN/256) : L O W= N - H I G H*2 5 6 : POKE DL+30.LO 
U : POKE D L * 3 1 , HIGH 

GH 500 POKE 512.14-.P0KE 513.6:P0KE 54286, 

1 9 2 : P O KE 1543,10 

EE 510 REM INIT SCROLL SUBROUTINE 
XM 520 RESTORE 230: FOR N = 1 TO 10 : READ A : R 
OUTINES (N , N) =CHRS (A) : NEXT N 
GU 530 HIGH = INT (SCRLO U/2 5 6) :LOW=SCRLOW-HI 
GH*256 : ROUTINES (8, 8) =CHRS(LOW) : ROUTINE 
S (9. 9) =CHRS (HIGH) 

YA 540 HIGH=INT (SCRHIGH/256) : LOW=SCRHIGH~ 
HIGH*256 : ROUTINES (4 , 4) =CHRS (LOU) : ROUT I 
NES (5. 5) =CHRS (HIGH) 

CH 550 A = U S R (1768) 

TR 560 REM SET UP P/M GRAPHICS 
SF 570 UUTP=PEEK (134) * P E E K ( 1 3 5 ) *2 5 6 
JF 580 ST ARP=PEEK ( 140) + PEEK ( 141) *256 
OJ 590 OFFSET = PMBASE-ST ARP 

LC 600 H I = I N T (OFFSET/256) : LOW = OFFSET ~HI*2 
56 

HA 610 POKE UUTP+2 . LOW : POKE UVTP+3.HI 

MN 620 PMS (512) PMS (640) =PMS (512) : PMS 

(513) -PMS (512) 

ON 630 POKE 623.1= POKE 704,12:POKE 53256. 


KN 640 POKE 54279 . INT CPMBASE/256) : POKE 53 
2 7 7 , 3 : P 0 KE 756 , INT (PMBASE/256) 

UR 650 PMS(9.33)="UUUUUUUUZ=SSLIUiSSUUUUUUU 
U" 

HK 660 REM DRAW SCREEN 

UI 670 TSCH-PEtK (89) : T S C L = P E E K t 8 8 ) : POKE 8 
9 , B S C H : P OKE 88. BSCL 

XN 680 POKE 87, 0 : POKE 7 5 2 . 1 : P O S I T I O N 0,0: 
? SCS 

TC 690 RESTORE 240:FOR N = 0 TO 15: READ AS: 
POSITION 1 . N : ? "■ AS : POSITION 16- (N 

> 9 ) , N : ? N : POSITION 39. N:? : NEXT N 

GW 700 POKE 88, TSCL : POKE 89,TSCH:POKE 87. 


LS 710 FOR N = 1 TO 31 STEP 10:COLOR 33+(N= 

11) ♦ (N=21)*2+ (N=31)*130 : FOR M=0 TO 6 S 
TEP 3 

PX 720 FOR 1-0 TO 8 : F O R J = 0 TO l:PLOT N + I 

,M+J-(M=6 AND N-31) *3 : NEXT J:NEXT I 
JG 730 NEXT M : NEXT N 
ZP 740 POKE 87, 0 : POKE 752,1 
QU 750 FOR C=1 TO 12:GOSUB 1280:NEXT C 

CY 760 POSITION 1,9:? «6 ; "■■■■■■■ISIIISUHI 

RR 770 POSITION 1.10:? **6 ; "■■■■■■■■■■■■■■ 


HU 780 POKE 89 , BSCH : POKE 88, BSCL 

zi 790 cRss = "*ui:i:i:»:i:ia)*" 

JM 800 BLKS-"**********" 

SU 810 POKE 559,46 

GA 820 LY=520 : Y=1 : X=1 : GOTO 920 
PL 830 REM UPPER WINDOW ROUTINE 
Cl 840 IF STRIG (0) =0 THEN 840 

HC 850 IF STRIG (0) =0 THEN GOSUB 1350:GOTO 
980 

NZ 860 FOR D E L A Y = 1 TO 15:NEXT DELAY 
SO 870 GOSUB 1210 

YT 880 IF D X = 0 AND DY = 0 THEN 850 
JW 890 POKE 77,0 
UO 900 X=X+DX : Y=Y+DY 

TD 910 X=X- (X=5) *4+ (X=0) *4 : Y=Y- (Y=4) *3* (Y 
= 0) *3 

TO 920 PMS (LY . LY+9) =BLKS 
UD 930 LY=Y»21*509 

XU 948 POKE 53248 . X*40+22 
FA 950 PMS (LY . LY+9) =CRSS 
QU 960 GOTO 850 

PG 970 REM LOWER WINDOW ROUTINE 
UM 980 CL0C=1527+X+Y*4 : CLOC=CLOC- (Y=l) *82 
4 : IF Y = 3 AND X = 4 THEN CL0C = 712 
HM 990 C = X + (Y-l) *4 : COLR = INT (C (0/16) : LUM = 
C (C) - (COLR) *16 
UI 1000 BSCRN=BSCL+BSCH*256 

IX 1018 SCLOC = BSCRN+ ( C O L R > 2 AND C0LR<13)* 
(COLR-2) *40+ (COLR>12)*400 
ZT 1020 GOSUB 1240 

SE 1030 BX=LUM+19+ (LUM> 9) * (LUM-8)/2 : BY=CO 
LR : POSITION BX.BY:? " X " : L B X = B X : L B Y = B Y 
OX 1040 IF STRIG (0) =0 THEN 980 
YM 1050 GOSUB 1210 

LK I860 IF STRIG (0) =0 THEN POSITION BX.BY 
: ? " " : GOSUB 1350:GOTO 840 

EU 1070 BX = BX + DX*2 : BX = BX+ (BX> 27) *DX : BY = BY 
+ DY 

MB 1080 IF B X = L B X AND BY = LBY THEN 1050 
NF 1090 POKE 77,0 

QU 1100 IF B X > 3 7 OR BX<19 THEN BX = LBX:DX = 

o r 

FF 1110 IF B Y > 1 5 OR BY<0 THEN BY = LBY : DY = 0 

YK 1120 POSITION LBX.LBY : ? " " 

SH 1130 IF BSCRN+BY*40 <SCLOC THEN SCLOC=S 
CLOC-40 : GOSUB 1240 

CQ 1140 IF BSCRN + BY*40> SCLOC + 200 THEN SCL 
OC=SCLOC+40 : GOSUB 1240 
HL 1150 POSITION BX.BY:? " X " : L B X = B X : L B Y = B 
Y 

LB 1160 LUM=LUM+DX*2 : CC=LUM+16*BY : POKE CL 
OC , CC : C (C) =CC : GOSUB 1260 
GB 1170 POKE 88. TSCL : POKE 8 9 , T S C H : G O S U B 1 
300 

ZL 1180 POKE 88 , BSCL : POKE 89, BSCH 
QE 1190 GOTO 1050 

XU 1200 REM READ JOYSTICK SUB 
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WAIT FOR HORIZO 


TH 1210 S=STICK{0) :DH=(S>4 AND S<8)-(S>8 
AND 5 <12) : DV= (5 = 5 OR S=9 OR S=13)-(S=6 
OR 5 = 10 OR 5 = 14 J 

BU 1220 POKE 16. 112 : POKE 53774 . 112 : RETURN 
GW 1230 REM SCROLL SUB 

DB 1240 A = USR (ADR (ROUTINES) . SCLOC) : RETURN 


PF 1250 
GV 1260 
POKE 
OH 1270 
QH 1280 
JN 1290 
4 

HE 1300 
; BY 
ID 1310 
AW 1320 
THEN 
HH 1330 
UO 1340 
DF 1350 


REM SET TEHT COLOR SUB 

A=PEEK (712) ~INT (PEEK(712)/16)*16: 

1543. 10 - (A>9)»2: RETURN 

REM WRITE HUE/LUM SUB 

BY = INT (C (0/16) : LUM=C(C) - BY*16 

Y = l*(C>4) + (C>8):H = C-INT((C-l)/4)»* 

POSITION K*10-9- (BY> 9) , Y**3-l : ? •• 

POSITION X*10-6, Y**3 - 1 : ? LUM;" •• ; 
POSITION K*10-3,Y*3-l:lF C(C) <99 
? •• ; : IF C ( C ) <10 THEN ? •• ; 

? C (C) : RETURN 
REM BEEP SUB 

SOUND 0 , 50 , 14 , 6 : FOR N=0 TO 10:NEK 


T N : SOUND 0 , 0, 0 . 0 : RETURN 


LISTING 2 


10 ; COLOR PALETTE INTERRUPTS 

20 ; JOHN U. FELTON 

30 ; CO 1985. ANTIC PUBLISHING 

40 ; 


50 DRKMSK = S4E 
DUCED LUMINANCE MASK 
GO COLRSH = 54F 

LOR SHIFT MASK 
70 MSYNC = SD40A 
NT AL SYNCHRONIZATION 
80 COLPF0 = 5D016 

FOR PLAYFIELD ZERO 
90 COLPF1 = SD017 

FOR PLAYFIELD ONE 
0100 C0LPF2 = SD018 
FOR PLAYFIELD TWO 
0110 COLPF3 = SD019 
FOR PLAYFIELD THREE 
0120 COLOR4 = S02C8 
R REGISTER SHADOW 
0130 VDSLST = S0200 
TERRUPT VECTOR 
0140 SYSVBV = SE45F 
CAL BLANK ENTRY 
0150 SETUBV = SE45C 
ANK VECTOR ROUTINE 
0160 CHBASE = 5D409 
ADDRESS 

0170 -ORG 50600 

E SIH 

0180 COLR0 . DS 1 
FOR DISPLAY COLORS 
0190 C0LR1 .DS 1 
0200 C0LR2 .DS 1 
0210 C0LR3 -DS 1 
0220 COLR4 -DS 1 
0230 COLR5 .DS 1 
0240 COLR6 -DS 1 
0250 COLR7 -DS 1 
0260 -DS 4 

0270 ; 

0280 ; INTERRUPT ttl 
0290 ; 

0300 INTI PHA 
R ON STACK 
031O LDA COLOR4 

COLOR 

0320 EOR COLRSH 


; ATTRACT MODE RE 

; ATTRACT MODE CO 

; WAIT FOR HORIZO 
REGISTER 

; COLOR REGISTER 
; COLOR REGISTER 
; COLOR REGISTER 
; COLOR REGISTER 
; BACKGROUND COLO 
; DISPLAY LIST IN 
; STAGE ONE VERTI 
; SET VERTICAL BL 
; CHARACTER BASE 
; POSITION ON PAG 
; DEFINE STORAGE 


; EXTRA STORAGE 

; PUSH ACCUMULATO 
; LOAD BACKGROUND 
; PERFORM ATTRACT 


MODE OPERATIONS 
0330 AND DRKMSK 

0340 STA WSYNC ; 

NT AL BLANK 

0350 STA COLPF2 ; STORE IN GR . 0 B 

ACKGROUND COLOR REGISTER 

8360 LDA C0LR7 ; LOAD DISPLAY CO 

LOR SEVEN 

0370 EOR COLRSH 

MODE OPERATIONS 
0380 AND DRKMSK 

0390 STA COLPF1 

UMINANCE COLOR REGISTER 

0400 LDA ** <INT 2 ; LOAD ADDRESS OF 

NEXT 

0410 STA VDSLST ; INTERRUPT INTO 

THE 

0420 LDA tt > INT2 

TERRUPT 

0430 STA VDSLST+1 

0440 PLA 

OFF OF STACK 
0450 RTI 

ERRUPT 
0460 ; 

0470 ; INTERRUPT »2 
0480 ; 

0490 INT 2 PHA 
R ON STACK 
0500 LDA COLR0 

LOR ZERO 

0510 EOR COLRSH 

MODE OPERATIONS 
0520 AND DRKMSK 


PERFORM ATTRACT 


STORE IN GR.G 


DISPLAY LIST IN 


; VECTOR 
POP ACCUMULATOR 


RETURN FROM INT 


PUSH ACCUMULATO 


; LOAD DISPLAY CO 


; PERFORM ATTRACT 


0530 STA WSYNC ; 

NT AL BLANK 

0540 STA COLPF0 J 

REGISTER ZERO 
0550 LDA COLR1 ; 

LOR ONE 

0560 EOR COLRSH ; 

OPERATIONS 
0570 AND DRKMSK 

0580 STA C0LPF1 ; 

REGISTER ONE 
0590 LDA C0LR2 ; 

LOR TWO 

0600 EOR COLRSH ; 

OPERATIONS 
0610 AND DRKMSK 

0620 STA C0LPF2 ; 

REGISTER TWO 
0630 LDA C0LR3 ; 

LOR 3 

0640 EOR COLRSH ; 

MODE OPERATIONS 
0650 AND DRKMSK 

0660 STA C0LPF3 ; 

REGISTER THREE 
0670 LDA tt <INT3 J 

NEXT 

0680 STA VDSLST ; 

069O LDA tt > INT3 ; 

TERRUPT 


0700 STA VDSLST ♦1 

0710 PLA 

OFF OF STACK 
0720 RTI 

ERRUPT 
0730 ; 

0740 ; INTERRUPT »3 
0750 ; 

0760 INT3 PHA 
R ON STACK 


WAIT FOR HORIZO 
STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 
LOAD DISPLAY CO 
PERFORM ATTRACT 

STORE IN COLOR 

LOAD ADDRESS OF 

INTERRUPT INTO 
DISPLAY LIST IN 

; VECTOR 
POP ACCUMULATOR 

RETURN FROM INT 


PUSH ACCUMULATO 
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0770 LDA COLOR4 

COLOR 

0780 EOR COLRSH 

MODE OPERATIONS 
0790 AND DRKMSK 

0800 STA USYNC 

NT AL BLANK 
0810 STA COLPF2 


LOAD BACKGROUND 


; PERFORM ATTRACT 


; WAIT FOR HORIZO 


; STORE IN GR.G 


ACKGROUND COLOR REGISTER 


0820 LDA C0LR7 

LOR SEVEN 

0830 EOR COLRSH 

MODE OPERATIONS 
0840 AND DRKMSK 

0850 STA COLPF1 

UMINANCE COLOR REGISTER 


LOAD DISPLAY CO 


PERFORM ATTRACT 


STORE IN GR.6 


LDA 


LDA 


STA VDSLST+1 
PLA ; 


0860 
NEXT 
0870 
THE 
0880 
TERRUPT 
0890 
0900 
OFF OF STACK 
0910 RTI 

ERRUPT 
0920 ; 

0930 ; INTERRUPT »4 
0940 ; 

0950 INT 4 PHA 
R ON STACK 
0960 LDA C0LR4 

LOR FOUR 

097O EOR COLRSH 

MODE OPERATIONS 
0980 AND DRKMSK 

0990 STA USYNC 

NT AL BLANK 
1000 STA COLPF0 

REGISTER ZERO 
1010 LDA C0LR5 

LOR FIVE 

1020 EOR COLRSH 

OPERATIONS 
1030 AND DRKMSK 

1040 STA COLPF1 

REGISTER ONE 
1050 LDA COLR6 

LOR SIX 

1060 EOR COLRSH 

OPERATIONS 
1070 AND DRKMSK 

1080 STA COLPF2 

REGISTER TUO 
1090 LDA « <INT5 

NEXT 

1100 STA VDSLST 

1110 LDA « > INT5 

TERRUPT 

1120 STA VDSLST+1 

1130 PLA 

OFF OF STACK 
1140 RTI 

ERRUPT 
1150 ; 

1160 ; INTERRUPT »5 
1170 ; 

1180 INT5 PHA 
R ON STACK 
1190 LDA COLOR4 

COLOR 

1200 EOR COLRSH 

MODE OPERATIONS 
1210 AND DRKMSK 
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<INT 4 ; LOAD ADDRESS OF 


STA VDSLST ; INTERRUPT INTO 


>INT 4 ; DISPLAY LIST IN 


VECTOR 

POP ACCUMULATOR 


; RETURN FROM INT 


PUSH ACCUMULATO 


; LOAD DISPLAY CO 


; PERFORM ATTRACT 


; UAIT FOR HORIZO 


1220 STA USYNC ; U0IT FOR HORIZO 

NT AL BLANK 

1230 STA C0LPF2 ; STORE IN GR . 0 B 

ACKGROUND COLOR REGISTER 

1240 LDA «SE0 ; LOAD MSB OF ADD 

RESS OF CHARACTER SET IN ROM 
1250 STA CHBASE ; STORE IN CHARAC 

TER SET BASE POINTER 

1260 LDA C0LR7 ; LOAD DISPLAY CO 

LOR SEVEN 

1270 EOR COLRSH ; PERFORM ATTRACT 

MODE OPERATIONS 
1280 AND DRKMSK 

1290 STA COLPF1 ; STORE IN GR . O L 

UMINANCE COLOR REGISTER 

1300 PLA ; POP ACCUMULATOR 

OFF OF STACK 

1310 RTI ; RETURN FROM INT 

ERRUPT 

1320 ; 

1330 ; VERTICAL BLANK INTERRUPT 
1340 ; 

1350 VBI LDA « <INT 1 ; LOAD ADDRESS OF 
FIRST 

1360 STA VDSLST ; INTERRUPT INTO 

THE 

1370 LDA » > INT 1 ; DISPLAY LIST IN 

TERRUPT 

1380 STA VDSLST +1 ; VECTOR 

1390 JMP SYSVBV ; JUMP TO OS VERT 

ICAL BLANK ROUTINE 
1400 ; 

1410 ; SET VECTOR TO VERTICAL BLANK IN 

TERRUPT 

1420 ; 

1430 PLA ; DISCARD NUMBER 

OF PARAMETERS PASSED IN BASIC CALL 
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LOAD V WITH L5B 


1440 LDY » <VBI 

OF INTERRUPT ADDRESS 
1450 LDK « > VBI ; LOAD K WITH MSB 

OF INTERRUPT ADDRESS 
1460 LDA **6 ; LOAD ACCUMULATO 


R WITH SIK FOR IMMEDIATE VBI 
1470 JSR SETVBV ; CALL OS ROUTINE 

TO SET VECTOR 

1480 RTS ; RETURN FROM SUB 

ROUTINE 


fast graphic power from BASIC 

G.U.P. THE GREAT 

LISTING 1 TYPO MCodes!^^ 


KS 18 REM GUP - BAS 

MG 20 REM BY DAREK MIHOCKA 

FU 30 REM (c) 1985- AMTIC PUBLISHING 

MF 40 DIM FNSC20J , TEMPS (20) , ARS C93) 

UP 50 ? "soutput filenahe"; : INPUT FNS:CAS 

S = 0 

SB 60 IF FNS(l.U= ,, D n AND CFNS (2 , 2 J = M : " O 
R FNS 13 . 3) =" : ") THEN 80 
MG 70 TEMPS tl - 2J ="D TEMPS £31 =FNS : FNS=TE 
MPS 

MH 80 TRAP 150 

FU 90 ? :? :? "Uorkins. . .please stand by" 

LM 100 RESTORE : READ LN : LM=LN : DIM ASCLN}: 
C = 1 

BG 110 ARS="" : READ ARS 

HS 120 FOR X = 1 TO LEN (ARS) STEP 3:POKE 75 

2,255 

DC 130 LM=LM-1 : POSITION 10-10:? "(Countdo 
wn . . . T— " ; INT CLM/10J : "J " 

QO 140 AS (C - C J = CHRS (UAL CARS CX . X + 21 J J : C = C + 
1 : NEXT X : G O T O 110 

KK 150 NUMHI=INT ILN/256 J : N U ML O = L N - N U MH I**2 

56 

AU 160 OPEN **1 - 8 - 0 - FNS 

UD 170 AD=ADR C AS J : ADHI=INT (AD/256 J : ADLO=A 
D-ADHI*256 

RN 180 10 = 848 : POKE I0+2,11:P0KE 10 + 4, ADLO 

: POKE 10 + 5- ADHI : POKE 10 + 8 , NUMLO : POKE I 
0+9 , NUMHI 

EF 190 X = USR f ADR f"hhhS3LUB ,, J - 16J : CLOSE »1 
RO 200 GRAPHICS 0:? "■SHEaHaaaGM" 

MG 1000 DATA 1909 

XU 1010 DATA 2552550000641040710760680710 
55071039065112065140065030067142064059 
068072069024068042070028071 
FK 1020 DATA 0400710960712330722330720000 
00000039050033048040041035051000053052 
04104404105205700000003405 7 
TD 1030 DATA 0000360330500370430000450410 
40047035043033000000000165203041007005 
206170165204041003168189148 
XF 1040 DATA 0640372071332200732550571420 
641332051662042241921760341652O3160002 
240009074136240005074136240 
CZ 1050 DATA 001074168189105071133214189O 
41072133215177214037220005205145214096 
00000025525525525500000O0O0 
SS 1060 DATA 0000000000000000000000152400 
15240015240015240063207243252063207243 
252127191223239247251253254 
LD 1070 DATA 1652211972032400411760061662 
03134221133203165221045038065133223165 
203045038065197223240069197 
PD 1080 DATA 2032400231012091332240320730 
64230203165203197221240050197223240046 
197224208237169000133207032 
RY 1090 DATA 0730641652030241012091332030 
7601506523021420800223O215165205145214 
165203024101209133203197223 
OC 1100 DATA 2082351692551332070320730641 
65203197221240005230203076023065096000 
104104104141110065104104133 
KF 1110 DATA 2041041041332211041041332221 
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73110065197221144007166221142110065133 
221165204197222144006166222 
EM 1120 DATA 1342041332221731100651332030 
32194064230204165204197222208240173110 
065133203032194064096000000 
IX 1130 DATA 0000O0104141208O65238208O652 
38208065173212065072169000072173210O65 
072169000072173208065072104 
BT 1140 DATA O 7 4 2 4 0 2 1 9 2 0 1 0 0 1 2 0 8 0 O 3 O 7 6 0 7 3 0 
64141208065206208065104104133203104104 
133204133226076182065173210 
JF 1150 DATA 0651332031732120651332041332 
26104141211066104133221141210065104104 
133222141212065032214065206 
EU 1160 DATA 2080652082190960000000000000 
00000165222197204208003076180064165221 
197203208003076253066176018 
KE 1170 DATA 1662031342211332031652041642 
22133222132204132226165221056229203141 
203066072165204133226169000 
TR 1180 DATA 1412480701412110661040160061 
41248070078203066238203066165222056229 
204176009072169001141211066 
OR 1190 DATA 1040732550241050011412070661 
69000032214066072141207066173205066133 
219169000141207066104024105 
KN 1200 DATA 0000322140661732050661332181 
69128133225169230141183066141168066173 
248070240005024102219102218 
PG 1210 DATA 1652191412130662010012080051 
65218141213066173211066240020165218073 
255133218165219073255133219 
CF 1220 DATA 1691981411830661411680661732 
13066240042032073064024165225101218133 
225165226101219133226165204 
CN 1230 DATA 1 9 7 2 2 6 2 4 0 0 2 0 2 3 0 2 0 4 1 6 5 2 0 4 1 9 7 2 
26240012197222240008032073064230204076 
170066032073064165203197221 
HI 1240 DATA 2400052302030761490660960000 
00000000000000000000000000000160008056 
237203066008046205066014207 
GN 1250 DATA 0660420401440062372030660762 
40066109203066136208233176004109203066 
024046205066096165204197222 
GN 1260 DATA 1440061642221332221322040320 
73064165204197222240011230204032073064 
165204197222208245096104104 
ES 1270 DATA 1041332301041041332311041332 
251332261041332272402361412O3066169128 
141207066169000032214066072 
FP 1280 DATA 1690001412070661732050661332 
191O4032214066173205066133218169255133 
236165225024101218133225165 
DD 1290 DATA 226101219133226170036226O481 
81230236165231056229236133204189170069 
141146064169000141207066162 
PU 1300 DATA 0080781460641440030241012271 
06110207066202208241234234133229173024 
068240037165230024101229133 
DH 1310 DATA 2211652300562292291332030321 
94064165231024101236133204165230056229 
229133203032194064076086067 
AU 1320 DATA 1652362080311652311332041652 
30024101229133203032073064165230056229 
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229133203032073064165229133 
SB 1330 D ft T ft 2280760860671652310241012361 
33204032245067165231056229236133204032 
245067076215067165230056229 
ft R 1340 DATA 2 2 813 3 2 0 316 5 2 3 0 0 5 6 2 2 9 2 2 913 3 2 
21032180064165230024101228133221165230 
024101229133203032180064096 
GC 1350 DATA 0010000000000000000160240160 
24016024008008008000000024016255000001 
255255255255255255001001001 
GK 1360 DATA 2552550010001041041041410360 
69041015170189027068133206169234141141 
067141142067189043068240029 
KX 1370 DATA 2012552400202010022400081690 
74141141067076115068169074141142067076 
094068169010076096068189038 
KG 1380 DATA 0691410700691890540691410380 
65189250070141108064141026068189010071 
133209138201012016022173036 
E0 1390 DATA 0690321080691730360690410152 
01009048065169004141191002208058173036 
069041048141026071173036069 
IP 1400 DATA 0410031700721890260690130260 
71032108069104170189032069141031069174 
036069160202177214041191205 
IU 1410 DATA 0300692080091772140412400130 
31069145214136208235162008189096071157 
192002202016247165088024101 
KZ 1420 DATA 2081332251411050711650891332 
261410410721600010241652251O9070069133 
225153105071165226105000133 
JL 1430 DATA 2261530410722001921922082310 
96000008008008000000004005012014000000 
040020020010010020020040040 
BY 1440 DATA 0400400400400400200402552552 
55252248252248252248254254254255255248 
252000000104104141033002104 
DH 1450 DATA 1410320021041041701692551410 
46002173011212024101020010141010212157 
018208173046002208238096072 

O RU 1460 DATA 1620961690121570660030320862 
28162096169003157066003169168157068003 
169069157069003104157075003 
HC 1470 DATA 0412400730281570740030320862 
28173048002133214173049002133215160007 



177214141830069096083058153 
YG 1480 DATA 1531531531531531531531531531 
53152152152152152152152151151151151151 
150150150150150149149149148 
DA 1490 DATA 1481481471471471461461461451 
45144144144143143142142141141140140139 
138138137137136135135134134 
AW 1500 DATA 1331321311311301291281281271 
26125124123123122121120119118117116115 
114113111110109108107105104 
YT 1510 DATA 1031021000990970960940930910 
90088086084082081079076074072070067065 
062060057053050046043038033 
AY 1520 DATA 0270190001041041041332031041 
04133204104133233104133234104104133235 
198235160000165234133214165 
GE 1530 DATA 2 3 3 1 3 3 2 1 5 1 7 7 2 1 4 1 3 2 2 2 4 0 7 2 0 4 1 0 
96074074074074074168185244070133223104 
041159005223133218169000133 
VG 1540 DATA 2190240382180382190382180382 
19038218038219165218133214165219024105 
224133215160007132232152024 
UN 1550 DATA 1012041781652030740740241251 
05071133212189041072105000133213165203 
041003170024164232177214133 
KQ 1560 DATA 2161690001332171022161022172 
02016249160000173242070049212069216145 
212200173242070049212069217 
US 1570 DATA 1452121642321360161832302032 
30203230203230203165203201152144016056 
233152133203165204024105008 
MM 1580 DATA 1332042011841440001642241962 
35240004200076065070096255000064000032 
096000000000000000002003002 
QD 1590 DATA 0030020030010010010000000030 
02001001001004008004008004008002002002 
001001008004000000104104104 
VO 1600 DATA 1332031041041332040760730641 
04162004160000104104153142064200202208 
247096104162003173010210157 
KG 1610 DATA 1420642020162470961650881332 
12165089133213160039185033064145212136 
016248169255133207169036141 
RY 1620 DATA 1980020960000000000000362061 
50255000224002225002000064 
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GUITAR TUTOR 


Article on page 35. 


LISTING 1 


Don't type the 
TYPO II Codes! 


O 


RF 1 REM GUITAR TUTOR 

TN 2 REM BY FRANK IMBURGIO 

FD 3 REM tcj 1985. ANTIC PUBLISHING 

HJ 5 CLOSE ** 1 : OPEN **1 . 4 , 0 , " K : " 

OQ 10 DIM TOPS (30) . BOTS 130 J , FRETS (30) , STR 
INGS (30) , PATTERN 16J , TONES (63) :FOR X = 0 
TO 63 : TONES 1 X J =32 : NEXT X:GOSUB 20 

US 15 GOSUB 100:? "*":? :? :GOSUB 50:GOSU 

B 500 : GOSUB 1560:GOTO 15 

RP 20 FOR X = 1 TO 1 3 : R E A D ft : TOPS CH , K) =CHRS 

C A) : NEXT X 

RJ 21 DATA 32.32.17.18.23.18.23.18.23.18. 
23.18.5 

EV 25 FOR X = 1 TO 13 : READ A : BOTS (X. K) =CHRS 

C A J : NEXT X 

TA 26 DATA 32.32.26.18,24.18.24.18,24,18. 
24,18,3 

FN 30 FOR X = 1 TO 12 -READ A : FRETS (X , X) =CHR 

S C A J : NEXT X 

SG 31 DATA 32.1,18.19.18.19,18.19.18.19.1 
8 . 4 

FC 40 FOR X = 1 TO 13 ‘.READ ft : STRINGS (X , X) =C 

HRS (A) : NEXT X 

SL 41 DATA 32.32,124,32,124.32.124.32,124 
.32.124.32.124 

AE 45 RETURN 


AC 

JI 

OU 

OG 

B I 


AR 

SO 

XN 

SN 


50 ? TOPS : FOR X=0 TO 6:? I 

STRINGS : NEXT X:? BOTS 
60 POSITION 9, 0 : GOSUB 700 
65 POSITION 2.20:? "MQH 
ERED CHORDS" 

70 POSITION 2,21:? 

ES" 

75 POSITION 2,22:? "BSEJBB 
o . " : REM USE INVERSE VIDEO 
ESC 

99 RETURN 

100 GOSUB 1500 

102 POKE 751. 1 : POKE 752.1 
110 ? "Pick a note to buil 


< ; : ? FRETS:? 

GOSUB 710 
TO PLAY NUMB 

TO SOUND NOT 

for new chor 
FOR P , S , AND 

d a chord on 


DY 120 ? "C":? "D":? "E" : ? "F" : ? 


HH 130 GET «1 , K : I F K<65 OR K>71 THEN ? "13 
":GOTO 130 

SP 140 TONIC=K : TNC=K 

DX 141 GOSUB 1500:? "You haue picked ";CH 
RSCKJ;" as your tonic.":? :? “Now pick 


VQ 142 ? " 1 J Natural" 
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IQ 113 ? "2)Flat» 

TW 144 ? "31 Sharp” : ? 

ZU 145 TRAP 145 : INPUT ACC:IF ACC<1 OR ACC 

>3 THEM 145 

MB 146 TRAP 40000:IF ACC=2 THEM TOMIC=TON 

I C ♦ 7 

VI 147 IF A C C = 3 THEN T O N I C = T O N I C * 1 4 

TA 150 GOSUB 1500 

GM 160 ? "Pick a chord pattern" 

EZ 170 ? "DMajor":? "21Minor":? "3J7th": 

? "43 Min 7th" : ? 

BD 180 TRAP 180 : INPUT CHORD 

TT 190 IF CHORD < 1 OR CHORD>4 THEM 180 

FI 195 CHORD-CHORD-l:TRAP 40000 

YY 200 RETURN 

EK 500 GOSUB 600 : LINE- X : H=X*CHORD 

GT 505 POKE 752 , 1 : RESTORE X 

GU 510 POSITION 4 . 2 : F O R F = 1 TO 6 : READ A:? 

CHRSIAJ;" " ; : N E H T F : F R E T = 4 
EJ 515 FOR F = 0 TO 5 : READ A : P A T T E R N C F 3 - A : N 

EHT F 

TE 520 FOR F = 0 TO 5 : FRET=FRET+2 : RESTORE P 

ATTERN CF3 

CR 530 POSITION 4 , FRET 

JH 535 FOR 1 = 1 TO 5 : READ A:? CHRS (A3 ; ; 

: NEXT I : R E A D A:? CHRS (A3 
EZ 540 NEXT F 

ON 600 IF T0NIC=85 THEN TONIC=72 

RN 601 IF T0NIC=79 THEN T0NIC=73 

RA 602 IF T0NIC=74 THEN TONIC=66 

PX 603 IF T0NIC=81 THEN T0NIC=75 


RS 604 
ML 605 
VI 606 
QY 607 
MB 608 
UI 650 
AV 699 
OA 700 
HA 701 
GH 702 
FK 703 
YC 704 
PK 705 
01 706 

ZY 70 7 
JQ 710 
♦ 2 : ? 


IF T O N I C = 
IF TONIC 
IF TON I C = 
IF T O N I C = 
IF TONIC= 
X= C (TONIC 
RETURN 
? CHRSCK3 
IF A C C = 2 
IF A C C = 3 
IF CHORD= 
IF C H O R D = 
IF C H O R D = 


82 THEN TONIC=76 
77 THEN T0NIC=69 
84 THEN T0NIC=78 
80 THEN TONIC=67 

83 THEN TONIC=70 
-653 *1003 +20000 


THEN ? 
THEN ? 
THEN 
THEM 
THEN 


RETURN 

FOR X = 2 TO 16 STEP 2:P0SITI0N 20, X 
CHRS t tX/23 +1763 : NEXT X:TONE=CHORD 


XH 715 1 = 4 : F O R X = 4 TO 16 STEP 2 

LM 720 POSITION 23, X:? CHR$ (TONES (13 3 ; 

OI 730 ? CHRS t TONES (1*13 3 ; 

BP 735 CHORD = TONES (1*23 : GOSUB 703 : I = I + 7 : N 
EXT X : CHORD=TONE 

XP 799 POSITION 23, X:? "■C3SBDI" : RETURN :R 
EM USE INVERSE VIDEO FOR REST 
NL 1500 ? :? :? :POKE 752,0:? :POKE 

710,0: RETURN 

MM 1555 FOR TIME=1 TO 200:NEXT TIME : RETUR 

N 

EZ 1560 TONIC = TNC : GET **1 , K 

PO 1561 IF CHRS (K3 ="S" THEN GOSUB 3000 
SO 1562 IF K> 4 8 AND K<56 THEN GOSUB 3100 
UN 1563 IF K=80 THEN 3200 
BB 1565 IF K < > 2 7 THEN 1560 
BE 1570 RETURN 

LT 2000 DATA 1,19,19,19,19,4 
EU 2001 DATA 1,19,19.19,20,4 
AP 2002 DATA 1,19,20,20,19,4 
TQ 2003 DATA 1-19.20.20,20.4 
HK 2004 DATA 20,20,20,20,20.20 
FK 2005 DATA 1.19,19.19,20,4 
DB 2006 DATA 1,20,20.19,19,4 
GA 2007 DATA 20.19.19.19,19.20 
HB 2008 DATA 1.19.19,19,19,20 
IU 2809 DATA 1.20,19,19,19.4 
JF 2010 DATA 20.19,19.19.19.4 
ZX 2011 DATA 1,19.19,20,19,20 
FB 2012 DATA 1,19.19,19.20,4 
GD 2013 DATA 1.19,19,20,19,4 
AC 2014 DATA 1,19,20,19,20.4 
HJ 2015 DATA 1.19,20.19,19,4 
CG 2016 DATA 1,20.19,20.19.4 
GT 2017 DATA 1,19.19.20,19,4 
AB 2018 DATA 1.19.19.19.20.20 
OO 2999 REM ABOVE SETS UP ALL NEEDED 
SHAPES FOR FINGER DOTS. 
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ZH 3000 REM SOUND NOTES INDIVIDUALLY 
GY 3005 RESTORE LINE+99:FOR X=0 TO 4 : READ 
A : PATTERN CX3 =A : NEXT X 
UO 3010 SOUND 0 , PATTERN (03 . 10 , 8 : GOSUB 155 

5 

XD 3020 IF C H O R D = 1 OR CH0RD = 3 THEN SOUND 
1 . PATTERN (43 . 10 , 8 : GOSUB 1555:GOTO 3040 

MC 3030 SOUND 1 , P A T T E R N ( 1 3 . 1 0 , 8 : G O S UB 155 

5 

XN 3040 SOUND 2 , PATTERN (23 , 10 . 8 : GOSUB 155 
5 

GS 3050 IF C H O R D = 2 OR CHORD = 3 THEN SOUND 
3 , PAT TERN (33 , 10 , 8 : GOTO 3060 
TR 3055 SOUND 3.INT ((PATTERN (03/23 -0.53 ,1 
0 , 8 

SB 3060 GOSUB 1555:GOSUB 1555:FOR X=0 TO 

3 : SOUND X,0,0,0:NEXT X : RETURN 
CE 3100 REM PUT CHORDS INTO MEMORY 
BS 3110 T ONE = (K-493 **7 : RESTORE LINE + 99 
CC 3115 READ ONE, THREE . FIVE, SEV , MINTHREE : 

TONES (T0NE3=0NE: TONES (TOME + 23 =FIVE 
CR 3120 IF C H O R D = 0 OR CH0RD = 2 THEN TONES( 
TONE+13 =THREE : GOTO 3130 
LF 3125 TONES (TONE + 13 = MINTHREE 
IK 3130 IF C H O R D = 2 OR CH0RD = 3 THEM TONES( 
TONE+31 =SEV : GOTO 3140 
PQ 3135 TONES (TONE+33 -INT ( (ONE/23 -0 . 53 
NM 3140 TONES (TONE + 43 = TONIC : TONES (TONE + 53 
= 32 

OA 3145 IF A C C = 2 THEN TONES (TONE + 53 = 98 
BZ 3150 IF A C C = 3 THEN TONES (T0NE>53 =35 
QF 3155 TONES (TONE + 63 = C H 0 R D 
KE 3160 GOSUB 710:RETURN 
XD 3200 REM PLAY CHORDS IN MEMORY 
HT 3205 GOSUB 1500:GOSUB 710:POKE 752.1:? 
"■SHHi TO STOP PLAYING ":REM INVERSE 
VIDEO FOR ESC 

TG 3210 X=PEEK (7643 : IF X=28 THEN 3230 
HS 3211 IF X = 3 1 THEN K=0 
IF 3212 IF X = 3 0 THEN K=1 

LN 3213 IF X = 2 6 THEN K=2 

LO 3214 IF X = 2 4 THEN K=3 

OV 3215 IF X = 2 9 THEN K=4 

OM 3216 IF X = 2 7 THEN K=5 

OI 3217 IF X = 5 1 THEN K=6 
QF 3218 IF X = 5 3 THEN K=7 
DQ 3219 IF K < 0 OR K> 7 THEN 3210 
HJ 3220 T 0NE = K*7 : IF T 0 N E S ( T O N E 3 = 3 2 THEN G 
OSUB 3230: GOTO 3210 

QX 3225 FOR X = 0 TO 3:S0UND X, (TONES (TONE* 
X3 3 . 10 . 8 : NEXT X.'GOTO 3210 
DM 3230 FOR X=0 TO 3:S0UND X,0.0,0:NEXT X 
: RETURN 

EF 19050 REM EXPLAIN THE FOLLOMING DATA : 
FIRST SIX : PRINT OUT Xs AND Os ON TOP 
i.e.;32 IS SPACE, 88 IS X, 79 IS O 
DH 19055 REM THE NEXT SIX ARE DATA LINES 
TO READ SHAPES FOR EACH CHORD PATTERN. 

* • e . ; 2 0 0 0 IS A FRET M/ NO FINGERS 
HZ 19066 REM THE LAST LINES OF DATA IN A 
SERIES (LINES 20099,20199, etc. 3 
SC 19068 REM ARE SOUND NUMBERS : TONIC , THIR 
D , SEVENTH , MINOR THIRD. 

MX 20000 DATA 88 , 79 . 32 - 32 . 32 . 79 , 2000 , 2003 
,2000,2000,2000.2000 

MX 20001 DATA 88.79,32.32.32.79.2001,2002 
,2000,2000,2000,2000 

JI 20002 DATA 88.79,32,79.32,79,2000,2014 

,2000,2000,2000,2000 

MG 20003 DATA 8 8 , 7 9 , 3 2 , 7 9 , 3 2 , 7 9 . 2 0 0 1 . 2 0 1 5 

,2000,2000,2000,2000 

HP 20098 REM A - IN THIS 0 R D E R : 2 0 0 0 0 = M A J : 
20001=MIN : 20002=7th : 20003=nin7 - All 
others (B.Bb, etc3 are in sane order. 

MA 20099 DATA 144.114,96,81,121 
LS 20100 DATA 88.32.32.32,32.32.2000.2004 
,2000,2003,2000,2000 

SI 20101 DATA 88,32,32,32,32,32.2000,2004 
,2005,2002,2000,2000 

PT 20102 DATA 88,32.32,32.32.32,2000,2004 

,2000,2014,2000,2000 

AB 20103 DATA 88.32.32,32,32,32,2000,2004 
,2005.2015,2000,2000 
SK 20198 REM B 

PE 20199 DATA 128,102,85,72,108 

UE 20200 DATA 88,32,32.79,32.79,2001,2015 

JUNE 1985 


. 2009. 2000. 2000. 2000 

U0 20201 DATA 88.32,32.32,32.32,2000,2000 
,2004,2005,2002,2000 

IB 20202 DATA 88.32.32,32.32.29.2001.2015 
.2016,2000,2000.2000 

DB 20203 DATA 88,32,32,32,32,32,2000,2000 
.2004,2005,2015,2000 
SY 20298 REM C 

M 5 20299 DATA 121,96,81.68,102 

MU 20300 DATA 88,88,79.32.32,32,2000.2011 

, 2012 , 2000 , 2000,2000 

TH 20301 DATA 8 8 - 8 8 . 7 9 , 3 2 . 3 2 . 3 2 , 2 0 0 8 , 2 0 1 7 
,2005,2000,2000.2000 

MB 20302 DATA 88-88-79.32.32.32.2012,2011 

, 2000 , 2000 , 2000,2000 

TR 20303 DATA 8 8 - 8 8 , 7 9 . 3 2 , 3 2 . 3 2 , 2 0 0 8 , 2 0 1 7 
,2005,2000,2000.2000 
TM 20398 REM D 

RY 20399 DATA 108,85,72.61,91 

PS 20400 DATA 79 . 32 . 32 . 32 . 79 . 79 , 201 7 . 2006 

, 2000 . 2000 , 2000.2000 

OY 20401 DATA 7 9 , 3 2 - 3 2 , 7 9 . 7 9 , 7 9 . 2 0 0 0 . 2 0 0 6 
, 2000, 2000, 2000, 2000 

CJ 20402 DATA 7 9 . 3 2 , 7 9 , 3 2 . 7 9 . 7 9 • 2 0 1 7 . 2 0 0 9 
,2000,2000.2000,2000 

BP 20403 DATA 7 9 . 3 2 . 7 9 . 7 9 . 7 9 . 7 9 . 2 0 0 0 . 2 0 0 9 
,2000.2000.2000.2000 
UA 20498 REM E 

Y I 20499 DATA 96,76,64.53,81 

OH 20500 DATA 88,88.32.32.32,32.2018.2017 
,2015,2000,2000,2000 

KR 20501 DATA 32.32,32,32,32.32,2004,2000 
,2006,2000,2000,2000 

MJ 20502 DATA 88,88,32,32,32,32,2004,2017 
,2009,2000.2000,2000 

OA 20503 DATA 32,32,32.32,32,32.2004,2000 
, 2009. 2000. 2000, 2000 
UO 20598 REM F 

RX 20599 DATA 9 1 , 7 2 , 6 0 , 5 0 , 7 6 

UU 20600 DATA 3 2 . 3 2 . 7 9 . 7 9 . 7 9 , 3 2 . 2 0 0 0 , 2 0 0 9 
, 2007. 2000. 2000. 2000 

OQ 20601 DATA 32,32.32,32,32,32.2000.2000 

,2004,2000,2006.2000 

MJ 20602 DATA 32.32,79,79,79,32.2008,2009 

. 2010 , 2000 . 2000,2000 

UD 20603 DATA 32,32,32,32.32,32,2000,2000 

,2004,2000.2009,2000 
UC 20698 REM G 

UD 20699 DATA 162.128,108,91,136 
GT 20700 DATA 32,32,32,32,32,32.2000,2000 
,2000,2004,2017,2006 

QR 20701 DATA 32.32,32.32.32.32,2000,2000 

,2000,2004,2000,2006 

XM 20702 DATA 88,88,32.32,32,32.2003,2008 

, 2000 , 2000 , 2000,2000 

XT 20703 DATA 32,32.32,32.32,32,2000.2000 


,2000.2004,2000,2009 
LX 20798 REM Ab 

GN 20799 DATA 153,121,102.85.120 
LE 20800 DATA 88,32.32.32.32.32,2004 
,2003,2000,2000,2000 
RA 20801 DATA 88,32,32.32,32.32.2004 
, 2002 , 2000 , 2000.2000 
OU 20802 DATA 88,32,32,32,32,32.2004 
.2014,2000,2000,2000 
XZ 20803 DATA 88,32,32,32,32,32,2004 
,2015.2000,2000,2000 
ML 20898 REM Bb 

RN 20899 DATA 136.108,91,76.114 
EU 20900 REM C FLAT IS REFERRED TO B 
NATURAL 

FN 20999 REM C FLAT NOTES ARE B 
OJ 21000 DATA 88,32,32,32,32,32,2000 
,2000,2004,2000,2003 
MN 21001 DATA 88,32,32.32,32,32,2000 
.2000,2004,2005,2002 
TE 21002 DATA 88.32.32.32,32,32,2000 
,2000,2004,2000,2014 
FU 21003 DATA 88,32,32,32,32,32,2000 
,2000.2004,2005,2015 
ML 21098 REM Db 

YT 21099 DATA 114.91,76.64.96 
MN 21100 DATA 88.32,32,32,32,32,2000 
.2004,2005,2015.2009 
PG 21101 DATA 88.88,32.32.32,32,2000 
.2017.2014,2000.2000 
XA 21102 DATA 88,88.32,32,32,32,2004 
, 2011 , 2000 , 2000,2000 
PL 21103 DATA 88,88,32,32,32,32,2015. 

.2017,2000,2000.2000 
MZ 21198 REM Eb 

MX 21199 DATA 102.85,68.57.91 
PS 21200 REM F FLAT IS REFERRED TO E 
JH 21299 REM F FLAT NOTES ARE E 
ZL 21300 DATA 32,32,32,32,32,32,2000. 

,2017,2006,2000,2000 
ML 21301 DATA 32,32,32,32,32,32,2000. 
,2000,2006,2000,2000 
FJ 21302 DATA 32.32.32.32,32.32,2000, 
,2017,2009,2000.2000 
SJ 21303 DATA 32,32.32.32.32,32.2000. 

,2000,2009,2000,2000 
OB 21398 REM Gb 

MG 21399 DATA 173.136,114.96.144 
KB 21400 REM A SHARP IS B FLAT 

FF 21500 REM B SHARP IS C 

MU 21600 REM C SHARP IS D FLAT 

OF 21700 REM D SHARP IS E FLAT 

JJ 21800 REM E SHARP IS F 

QZ 21900 REM F SHARP IS G FLAT 

LJ 22000 REM G SHARP IS A FLAT 


2000 

2005 

2000 

2005 


2000 

2000 

2000 

2000 

2000 

2008 

2005 

2018 


2004 

2004 

2004 

2004 


game of the month [ 

HELICOPTER ROUNDUP 


LISTING 1 TYPO HCodes!^^ 


IU 10 REM HELICOPTER ROUNDUP 

ID 20 REM BY MALTER BULAMA 

FM 30 REM (cl 1985, ANTIC PUBLISHING 

UI 40 GOSUB 1350 : REM GAME INITIALIZATION 

NJ 50 GOSUB 1160 : REM LEUEL INITIALIZATION 

BU 60 S=STICK (01 

DT 70 POKE PMBASE+861-FUEL , F*126 : FUEL=FUE 
L-0 . 04 : FUELUSED=FUELUSED+1 
JS 80 POKE 16. 112 : POKE 53774, 112:IF FUEL< 

0 THEN 340 

GS 90 SOUND 0,15.8,10 


EC 100 XDIF = H (S-41 : YDIF = U (S-41 

EF 110 XP0S = XP0S + 4*»XDIF : VPOS = YPOS + 4*YOIF 

LF 120 IF X P O S <40 THEN XPOS = 40 

TJ 130 IF XPOS>200 THEN XPOS=200 

PL 140 IF Y P 0 S <8 THEN YP0S = 8 

YD 150 IF YPOS> 112 THEN YP0S=112 

FQ 160 SOUND 0 . 0 , 0 , 0 : SOUND 3, 0,0,0 

DZ 170 IF X D I F = 1 THEN P MD = P MR 

EN 180 IF X D I F = — 1 THEN P MD = P ML 


JUNE 1985 


continued on next pase 
ANTIC SOFTWARE LIBRARY ★ 71 


VH 

SF 

P ft 
BN 


MO 

EM 

KB 

NL 

JI 


190 A=USR (MOVE. 0, PMB ASE . PMD+IC. KP05 , YP 
OS , 5-ICJ 

200 A = USR (MO VE . 3> PHBASE . P MK , KPOS. YPOS. 
5) 

210 IC=IC+1 

220 IF I C = 2 THEN IC = 0:POKE 232,NCOHS:P 
OKE 230 , KPOS : POKE 231 , YPOS : A=USR (1536 , 
ADR CCPOSS) J 

230 IF PEEK C208J =NCOUS THEN IF NOT DO 
NE THEN GOSUB 470:DONE=1 
240 F = 0 

250 IF NOT (KPOS=176) THEN 60 

260 IF NOT (YPOS=100) THEN 60 

270 IF DONE THEN 520 


YU 280 SOUND 3,50,14,8 
ZU 290 IF STRIGC0) THEN 60 

UR 300 POKE PMBASE+861- (FUEL+0 . 04) , 126 
HN 310 FUEL = FUEL*0 . 3 : IF FUEL>51 THEN FUEL 
= 51 


RAUTO 13,1: NEKT I 

JE 760 PLOT 0,0: DRAUT O 18,0:DRAUTO 18,23: 

DRAUTO 0,23: DRAUT O 0,0 
HL 770 POSITION 19.20:? «6; "B" : POSITION 1 
9,21:? **6 ; "ID" : POSITION 19.22:? **6 ; "a" : 
POSITION 19.23:? **6 ; "H" ; 

AK 780 POSITION 15,20:? **6 ; "QQQ" : POSITION 
15.21:? **6; "QMU" : POSITION 15.22:? **6 : 
"QOQ" 

TV 790 REM PLOT TREES 
VR 800 RESTORE 820 

HP 810 FOR 1=1 TO 5 : READ C : READ R:POSITIO 
N C . R : ? **6 ; "w" : POSITION C.R+l:? **6;"K" 
: NEXT I 

JA 820 DATA 8,3,3.5,17.14,4.4,4,18 
FN 830 REM PLACE COHS 
BF 840 COLOR 89 
«M 850 FOR 1=1 TO NCOUS 

KG 860 COL=INT (17*RND (0) 3 +1 : ROU=INT (17«RN 


QD 

LS 

BG 

EM 

CS 

ZQ 

AH 
AM 
KZ 
VB 
F Y 
CE 
00 
sw 
00 
NU 
FN 
KA 

DO 


CO 

KT 

DI 

AT 

JG 

OP 
L J 

HS 

YG 

U J 

OL 

VR 

CM 

ZT 

YT 

UN 

OT 

NV 

IN 


HU 

YH 


A J 
BQ 

LD 

HY 


320 F = 1 : P O KE 77,0:GOTO 60 

330 REM END OF MAIN LOOP 
340 REM CRASH 
350 C R AS H = 1 

360 SOUND 0 . 100 , 4 . 14 : SOUND 3, 0,0.0 
370 A=USR (MOVE. 0, PMBASE. PMC. KPOS. YPOS. 
8) 

380 FOR 1=20 TO 200 STEP 4 

390 IF 1=100 THEN POKE 53256.3 

400 SETCOLOR 4,1.8 

410 FOR N = 1 TO 10 : NEKT N 

420 NEKT I 

430 SETCOLOR 4,0,0:SOUND 0,0, 0,0 

440 FOR 1=1 TO 400 : NEKT I 
450 POKE 53256,1 
460 GOTO 530 

470 REM CLOSE CORRAL GATE 
480 COLOR 131 : PLOT 6,11:DRAUT0 6.13 

490 SOUND 3, 40. 8, 15 : FOR 1=1 TO 40 : NEKT 
I 

500 FOR 1=150 TO 60 STEP -10:FOR N=I T 

0 *1-50 STEP -5 : SOUND 3 . N . 1 4 , 1 2 : N E K T N: 
NEKT I : S O U N D 3. 0,0,0 

510 POSITION 2,21:? a6:"return To pad" 
: RETURN 

520 SOUND 0 . 0 . 0 . 0 : FOR 1=1 TO 500:NEKT 

1 

530 S C 0 R E = ( NOT CRASH) ** ( N C O US**1 0 0 0 - F U E 

LUSED) : IF SCORE<0 THEN SCORE=0 

540 IF SCORE> HISCORE THEN HISCORE=SCOR 

E 

550 POKE 53248, 0:POKE 53249,0 : POKE 532 
5 0 , 0 : P O KE 53251,0 

560 GRAPHICS l+16:POKE 7 5 6 . C H B A S E/2 5 6 
570 COLOR 131 : PLOT 0,0:DRAUTO 19,0:DRA 
UTO 19, 23 : DRAUTO 0.23:DRAWT0 0.0 

580 POSITION 2.5:? **6 ; "HIGH SCORE: ";H 
ISCORE 

590 POSITION 2.8:? »6;"9a«e score: " ; S 
CORE 

600 POSITION 3,13:? «6 ; "OmHDBmBBBH ";F 
UELUSED 

610 IF NOT CRASH THEN POSITION 2,14:? 

620 IF CRASH THEN POSITION 2,16:? «6 : " 

630 POSITION 1.20:? **6;"H PRESS Y BHEH2 
Q Z" 

640 POKE 53279.8 
650 RESTORE 690 

660 READ I : IF I=-l THEN FOR J = 1 TO 200 
: NEKT J : GOT O 650 

670 IF (PEEK (53279) ) =6 THEN SOUND 3,0. 
0. 0 : NCOUS=NCOUS+l : GOTO 50 

680 SOUND 3,1,10,8: FOR J=1 TO 12 : NEKT 
J : GOT O 660 

690 DATA 60,60,0,60,60,47.47,47,0,47.4 

7.0. 47.47.47.0.0.0.60.60.0.60.60.45.45 
,45.0,45.45.0 

700 DATA 45.0,53,53,0,60,60,60,0 

710 DATA 60,60,47.47,47,0,47,47,0,47,4 

7.53.53.60.60.0. 45.45.45.47.0.45.45.0. 

60.60.60.0. 0.0,-1 

720 REM DRAU PLAYFIELD 

730 GRAPHICS l+16:POKE 559.0:POKE 756, 

CH8ASE/256 

740 SETCOLOR B , 1, 4 : SETCOLOR 3,2,8 
750 COLOR 131 : FOR 1=8 TO 17:PLOT 6,I:D 


D ( 0) ) +1 

OP 870 LOCATE COL , ROW . K V AL : IF KVALOS2 TH 
EN GOTO 860 

DO 880 POKE ADR (CPOSS) * (I — 1) **2 , COL : POKE A 
DR (CPOSS) ♦ (I — 1)**2*1, ROU: PLOT COL, ROM 
GO 890 NEKT I 

GC 900 REM PLACE HELICOPTER 
00 910 KP0S=176 : YPOS=100 : PMD=PML 

MA 920 A=USR (MOVE , 0 , PMBASE. PHD . KPOS . YPOS , 
5) 

RU 930 POKE 53249 , 200 : POKE 53250,200 
RU 940 REM CLEAR CENTER OF CORRAL 
KH 950 COLOR 32:F0R 1=9 TO 16:PL0T 7, I : DR 
AMTO 12,1: NEXT I 
QZ 960 PLOT 6,11: DRAUT O 6,13 
ZT 970 RETURN 

AK 980 REM TITLE PAGE DISPLAY 
ZT 990 POKE 106 . PEEK (740) : POKE 53279,8 
ZO 1000 POKE 53248, 0:POKE 53249. 0 : POKE 53 
250,0: POKE 53251,0 

EV 1010 GRAPHICS 2+16 : SETCOLOR 1,1.4 
TD 1020 POSITION 5,3:? **6 ; "HELICOPTER" : PO 
SITION 6.5:? **6; "ROUNDUP" 

KM 1030 COLOR 3 : P L O T 0.0:DRAUTO 19,0:DRAU 
TO 19. 11 : DRAUTO 0,11:DRAUTO 0.0 
KO 1040 POSITION 4,9:? »6 : "BISBBaMaaEian" 

JU 1050 RESTORE 690 

GY 1060 READ I : IF I=-l THEN FOR J=1 TO 28 
0 : NEKT J : GOTO 1050 

GK 1070 IF PEEK(53279) =6 THEN SOUND 3.0.0 
. 0 : RETURN 

CE 1080 SOUND 3, I, 10, 8 : FOR J = 1 TO 12 : NEKT 
J : GOT O I860 

TK 1090 REM PLEAE UAIT DISPLAY 
TU 1100 GRAPHICS 2+16 

VT 1110 POSITION 7.4:? «6; "PLEASE" 

ZY 1120 POSITION 8,7:? «6;"UAIT" 

ZA 1130 POSITION 5.10:? «*6;"30 SECONDS" 

UT 1140 FOR 1=1 TO 300 : NEKT I 
AQ 1150 RETURN 

00 1160 REM LEVEL INITIALIZATION 

AL 1170 POKE 53248, 0:POKE 53249, 0:POKE 53 
2 5 0 , 0 : P OKE 53251,0 

FS 1180 GRAPHICS 2 ♦ 1 6 : S E T C O L O R 1,1,4 
YM 1190 IC=0 : FUEL=S1 

KR 1200 COLOR 3 : PLOT 0,0:DRAUTO 19,0: DRAU 
TO 19. 11 : DRAUTO 0,11:DRAUTO 0,0 
OR 1210 POSITION 5.2:? «6 ; "HELICOPTER" : PO 
SITION 6.4:? **6; "ROUNDUP" 

VU 1220 POSITION 2,7:? **6;' 


**6 : ' ' HHCBiHHBHHHEH 


DF 1230 POSITION 2,8 

" ; NCOUS 

ZE 1240 POSITION 4.10:? **6 ; " 

UE 1250 FOR I=PMBASE+810 TO P MB A S E + 8 6 1 : P O 
KE I, 126: NEKT I 
JR 1260 POKE 53279,8 

NK 1278 IF PEEK (53279) =5 THEN NCOUS=NCOUS 
* 1 : IF N C O US >30 THEN NCOUS = l 
DF 1280 POSITION 16,8:? t*6;NCOUS;" " 

UM 1290 FOR 1=1 TO 10 : NEKT I 
VU 1300 IF PEEK (53279) <> 6 THEN 1260 
HK 1310 S C O R E = 0 

DJ 1320 GOSUB 720 : POKE 623,1:P0KE 559,46: 

FUELUSED = 0 : C R A S H = 0 : DONE = B 
CR 1330 POKE 53256, l.'POKE 53259.1 
AR 1340 RETURN 

VB 1350 REM INITIALIZATION 
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QZ 

HC 

HO 

SU 

VQ 

QM 

D ft 
EE 

QB 

HY 
ZE 
JE 
5 K 

OU 


IU 

SD 


Y ft 

KN 


OT 

UF 

BO 


BO 

NO 

uv 

MB 

BN 

TN 


UL 


LG 

NV 

oo 

YO 

HU 

RU 

NT 

OR 

NU 

BO 

MG 

F O 
KM 
CS 
KD 

NO 


1360 GOSUB 980 : GOSUB 1090 
1370 HISCORE = 0 : N C O US = 1 

1380 DIM PMHOVES (100) , PRS C5) , P L S C 5 ) .PC 
S 1 8 J , C P OS S (60) , CHNEUS (8) 

1390 DIM PHSC5J 
1400 DIM H (11) , U (11) 

1410 MOVE = ODR (PMMOUES) : P MR = O D R C P R 5 J :PM 
L=BDR (PLS) : PMC=ODR (PCS) 

1420 PMX=BDR (PXS) 

1430 RESTORE 1440:FOR 1=5 TO 15:REOD N 

: H (1-4) =N : READ N : U ( I - 4 ) = N : N EH T I 

1440 DATA 1,1.1. -1,1. 0,0,0, ~l,l, -1,-1, 

-1.0. 0.0, 0,1. 0,-1, 0.0 

1450 GRAPHICS 1+16:P0KE 559,0 

1460 PMBOSE = INT ( (PEEK (106) ~6)/4)**4 

1470 CHBASE = (PMB ASE-2) *256 

1480 PMBASE=PMBASE«256 

1490 PRS (1) = C H R S (31) :PRSC2)=CHRSC132) : 
PRS(3)=CHRS(206) : PRS (4) -CHRS (127) :PRS( 
5) -CHRS C 1 4 ) 

1500 PLS Cl) -CHRS (248) : PLS (2) -CHRS (33) : 
PLS (3) -CHRS (115) : PLS (4) =CHRS (254) :PLSt 
5 J = C H R S (112) 

1510 PCS (1) =CHRS (90) : PCS (2) = C H R S (82) :P 
CS (3) =CHRS (34) : PCS H) -CHRS (116) : PCS C5J 
= C H R S (92) : PCS (6) =CHRS (94 ) 

1520 PCS (7) =CHRS (162) : PCS (8) =CHR$ (16) 
1530 PHS(1)=CHR$(0) : PHS (2) =CHRS (0) :PHS 

C3) =CHRS C 1 2 9 ) : PHS (4) =CHRS (0) :PXSC5>=CH 
RS (0) 

1540 REM ERASE P/M AND CHR MEMORY 
1550 RH=PEEK(89) :RL=PEEK(88) 

1560 I=PEEK (106) : POKE 106,I~6:POKE 89, 

PEEK (106) -8 : POKE 88.0:? POKE 89, RH 

: P O KE 88, RL : POKE 106,1 

1570 POKE 559,0 

1580 REM P/M MOUE ROUTINE 

1590 RESTORE 1600:FOR 1=1 TO 100:READ 

N : PMMOUES (I) =CHRS (N) : NEXT I 

1600 DATA 216,104,104,104.133,213,104, 

24.105.2,133.206.104,133,205,104.133.2 

04,104.133.203.104.104,133,208 

1610 DATA 104.104.133,209.104.104,24.1 

01,209,133,207,166,213,240,16,165,205. 

24,105,128.133,205,165,206.105 

1620 DATA 0,133,206.202,208.240.160,0, 

162.0. 196.209.144.19.196.207.176.15.13 
2.212.138,168.177.203,164 

1630 DATA 212.145.205.232.169,0.240,4, 

169.0. 145.205.200.192.128.208.224.166. 

213.165.208.157.0. 208.96 
1640 REM CHAR MOUE ROUTINE 
1650 RESTORE 1960:1=0 

1660 READ N : I F N=-l THEN 1680 
1670 POKE 1536*1 . N : 1=1*1 : GOTO 1660 
1680 CHNEUS="KUQWnHYZ" 

1690 FOR 1=0 TO 511 : POKE C H B A S E * I , P E E K 
(57344*1) : NEXT I 
1700 RESTORE 1740 
1710 FOR 1=1 TO 8 

1720 CHADD = CH8ASE* (ASC (CHNEUS tl , I) ) -32 
J **8 

1730 FOR J = 0 TO 7 : READ N:POKE CHADD* J, 

N : NEXT J : NEXT I 

1740 REM TREE TRUNK K 

1750 DATA 24.24.24.24,24,24,24,24 

1760 REM TREE LEAUES-U 

1770 DATA 64,49.87.221.84,58.120,28 
1780 REM LANDING PAD-O 

1790 DATA 255,255,255.255.255.255.255. 


255 

RJ 1800 REM REFUEL ZONE-U 

US 1810 DATA 231.231,231.0,0,231.231.231 

NU 1820 REM FENCE - « 

GC 1830 DATA 255.68,68,68,255,68,68,68 
UU 1840 REM LEFT COU - X 

AA 1850 DATA 64.192,255.63.63,17,17,17 
OF 1860 REM CENTER COU - Y 
NK 1870 DATA 36,24,24,60,60,60,36,36 
IM 1880 REM RIGHT COU - Z 

DB 1890 DATA 2,3.255.252.252.136,136.136 
UZ 1900 POKE 54279 . INT (PMBASE/256) : POKE 5 
3277.3 

YP 1910 POKE 7 0 4 , 8 : P O KE 785.14:POKE 706,1 

8 6 : P O KE 707.252 

RR 1920 FOR I=PMBASE*640 TO P MB A S E + 8 9 5 : P O 
KE I , 0 : NEXT I 
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AP 1930 FOR I=PMBASE+682 TO PMBASE+733 : PO 
KE I , 129 : NEXT I : POKE P MB A S E * 7 3 4 . 2 5 5 : P O 
KE PMBASE*681, 255 
BD 1940 RETURN 

AD 1950 REM COU MOUE ROUTINE 

ER 1960 DATA 104.104,133,204,104.133.203. 
169 

KG 1970 DATA 0.133.208.165,232.208,1,96 
UU 1980 DATA 198.232,165,232.10.168,177,2 

03 

YF 1990 DATA 133-219,200,177,203,133,220, 
32 

UA 2000 DATA 145.6,165,230.133,207,165,21 
9 

SO 2010 DATA 10,10,10.24,105,48,133,206 
NU 2020 DATA 32,193,6.138.133,233.24,101 
OL 2030 DATA 219,133,221.32,145,6.165.231 

UC 2040 DATA 133.207.165,220.10,10,24,105 

IC 2050 DATA 16.133,206,32,193,6,138,24 
IA 2060 DATA 101,220,133,222.170,32,165,6 


TK 2070 DATA 164,221.177,205,201,0,240,10 


DK 2080 
ES 2090 
Y I 2100 
TD 2110 


DATA 165,220,166.219,32,230,6,76 
DATA 11.6.169,57,24,101,233,145 
DATA 205,166,220.32,165,6,164.219 
DATA 169,0,145,205,165,232,10,168 


AU 2120 DATA 
145 

UF 2130 DATA 
UU 2140 DATA 
HC 2150 DATA 
CY 2160 DATA 
UU 2170 DATA 


165.221,145.203,165.222.200, 


203.166,221.32,230,6,76.11 

6-173,10.210.201.235.176,3 

162.0.96,201,245,176,3.162 

1,96,162.255.96,165.88.133 

205,165.89,133.206,138.208 


1 


IN 2180 DATA 96,165.205.216.24.105.20,133 


AO 2190 
1 

HM 2200 
BU 2210 

5 

HB 2220 

6 

CK 2230 

ZM 2240 
JR 2250 
KL 2260 
LU 2270 
FH 2280 


DATA 205,144,2,230,206,202,208,24 

DATA 96,173,10.210,41,31,133,205 
DATA 165,207,24.197.206.176,13,16 

DATA 206,56,229,207,24.197,205.17 

DATA 2,162,1.96.229.206.24,197 
DATA 205,176,2,162.255,96,24,201 
DATA 8 . 176 . 1 . 96 . 201 . 17 . 144 . 1 
DATA 96,138,24,201,7,176,1.96 
DATA 201,13.144,1,96,230.208.96 
DATA -1 



End Program Typing Agony Forever! 

Antic Magazine+ 
Disk Subscription 

Instant Relief! 
Only $99.95 
12 issues. 


See Subscription 
Insert for details. 
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| logo I 

TURTLE PIANO 


LISTING 1 

TO SIGN : LEN 

TELL CO 13 PU 

TELL 0 BK 6 TELL 1 FD 14 

TELL [0 13 LT 90 FD -LEN /" 2 - 10 

END 

TO STAFF : LEN :HIT 

CS PU LT 90 FD : LEN / 2 RT 90 FD :HIT 
* 5 / 2 PD 

REPEAT 4 [SETH 90 FD : LEN BK : LEN RT 
90 FD : HIT3 
RT 180 

REPEAT 2 CFD : HIT * 4 RT 90 FD : LEN R 
T 903 
SIGN : LEN 
END 

TO MEASURE 
CS 

TELL 2 STAFF 250 10 
END 


IF : ST = 
1 - 53 

IF : ST = 
6-63 

IF : ST = 
03 

IF : ST = 
5-43 

IF : ST = 
2.23 

IF : ST = 
500003 
OP 5O000 
END 


"K [TYPE [\ C 3 
"L [TYPE [\ D3 
[TYPE [\ E3 
"♦ [TYPE [\ F3 
[TYPE [\ G3 
CHAR 32 [TYPE 


SETY 15 OP 52 
SETY 20 OP 58 
SETY 25 OP 66 
SETY 30 OP 69 
SETY 35 OP 78 
[\ 3 SETY 0 OP 


TO BEEP2 : NOTE 

SETENU 0 3 

TOOT O : NOTE 10 20 

TOOT 1 : NOTE / 2 8 20 

END 


TO DIRECTIONS 
CT 

PR (IF YOU WANT THE COMPUTER TO PLAY3 
PR [ALONG UITH YOU * PRESS ■y" NOW- 3 
MAKE "CHOI RC 

IF : CHOI = "Y [PR [THE COMPUTER UILL 
PLAY ALONG -3 3 [PR [THE COMPUTER WILL 
NOT PLAY -33 

PR [Press a key To so on . 3 

PR RC CLEANUP 

END 

TO SETUP 
SETBG O 

TELL 2 SETPN 0 SETPC 0 102 SETC IS 
TELL [0 13 SETC 6 
TELL [0 1 23 CS 


TO REMEM : ST 

MAKE "LINE LPUT : ST : LINE 
END 

TO REPLAY : LINE 
IF EMPTYP : LINE [STOP! 

IF : CHOI = "Y [BEEP2 PLAY FIRST : LINE 
3 [BEEP PLAY FIRST : LINE3 
REPLAY BF : LINE 
END 

TO START 
SETUP 

BEEP2 PLAY "A 
DIRECTIONS 
GET. NOTE 
END 


TELL 2 MEASURE 

TELL 2 PU SETPOS [0 -203 SETC 15 
PUT SH 1 : NOAT 
PUTSH 2 --STAFFLO 
PUTSH 3 : STAFFHI 

TELL 0 SETSH 2 TELL 1 SETSH 3 

TELL 2 SETSH 1 

END 

TO BEEP : NOTE 

SETENU 0 3 

TOOT 0 : NOTE 10 20 

END 

TO PLAY : ST 

IF : ST = "A [TYPE [\ c] SETY -20 OP 2 

60 . 73 

IF : ST = "S [TYPE [X <J3 SETY -15 OP 2 
93 - 33 

IF : ST = "D [TYPE (\ e3 SETY -10 OP 3 
303 

IF : ST = "F [TYPE [\ F3 SETY -5 OP 34 

7.73 

IF : ST = "G [TYPE S3 SETY 0 OP 391 

-13 

IF :ST = "H [TYPE [\ a3 SETY 5 OP 440 
3 

IF : ST = "J [TYPE [\ t»J SETY 10 OP 49 


TO CLEANUP 
CT 

PR [CN.= CLE ANUP * Y\=ST ART OVER, R\=REPLA 
Y3 

MAKE "LINE [3 
END 

TO GET- NOTE 
-DEPOSIT 731 255 
MAKE "ST RC 

IF : ST = "C [CLEANUP GET - NOTE3 
IF : ST = "Y [START3 

IF : ST = "R [REPLAY : LINE GET - NOTE3 
REMEM : ST 

IF : CHOI = " Y CBEEP2 PLAY :ST3 [BEEP 
PLAY : ST3 
GET . NOTE 
END 

MAKE "ST "R 

MAKE "STAFFHI [8 12 10 9 9 9 9 9 9 9 
9 9 9 10 12 83 

MAKE "STAFFLO [8 24 40 72 136 136 136 
138 141 141 139 137 137 73 42 283 
MAKE "NOAT [0 7 15 12 8 8 8 8 8 8 104 
248 248 240 96 03 
MAKE "CHOI "Y 

MAKE "LINE [SDF\ FGH\ HJK\ 
K K K3 
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TURBO TYPO II 


LISTING 1 


UB 32000 REM TYPO II BY ANDY BARTON 
CM 32015 REM TURBO TYPO REV- BY J-D- McLA 
UGHLIN 

UP 32016 REM (c) 1985, ANTIC PUBLISHING 

G I 32025 DIM BSC75) 

ZS 32026 B $ = "O hn(3h hOC h.lGih h.1Sa*aa/Ba/HU/0* 

raanaotsnci^fflu] mq/»q/e a iau/Ba/CH muzaataoiuBcas 

HHO" 

PX 32150 ANS = USR (ADR (BS) » ADR (LINES) , LEN (L 
INE$) J : ANS-PEEK (1789) +256*PEEK(1790) +6 
5536»PEEKC1791) 

LISTING 2 


SM 10 REM CREATE LINE 32026 FOR TURBO TYP 
O 

CH 20 REM BY J-D- MCLAUGHLIN 

FM 30 REM Cej 1985- ANTIC PUBLISHING 

LS 40 GRAPHICS 0 

RT 50 RESTORE :POSITION 2.6:? "32026 BS = " 
; CHR$ (341 : 

IE 60 POKE 766,1 

GZ 70 FOR 1=1 TO 71 : READ A 

HG 80 ? CHRS(A): 

GG 90 NEXT I : POKE 766.0 

GL 100 POSITION 2.11:? "CONT" : POSITION 2. 
2 : POKE 842. 13 : STOP 

MR 110 POKE 842.12:? "LINE 32026 HAS BEEN 
CREATED": END 

FL 120 DATA 169.1,133.203,104.104.133.205 
.104,133.204.104.104,133.207,169.0,141 
.253.6,141,254,6,141 

PO 130 DATA 255,6.160,0,165,203,133,208,1 
77.204.133,206.24,165,206.189.253.6,14 
1,253,6.144.11.238 

KM 140 DATA 254.6,173.254,6,208,3,238,255 
.6.198.208.208,230.200,230.203,198,207 
. 208 , 215, 96 , 34 


LISTING 3 


05 ; TURBO TYPO 

06 ; BV J-D- MCLAUGHLIN 

07 ; CO 1985, ANTIC PUBLISHING 

10 *= 50600 

20 BASIC1 = 1789 ; FIRST 

30 BASIC2 = 1790 ; SECOND AND 

40 BASIC3 = 1791 ; THIRD BYTES OF A 

NS FROM BASIC PROGRAM 
50 LDA «1 

60 STA SCB ; ESTABLISH COUNTE 

R CTYPOII * S VARIABLE C) 


70 PLA 

S PASSED 
80 PLA 


90 

INE5) 
0100 
0110 
INES) 
0120 
SES A 
0130 
0140 
INES3 
0150 
0160 
0170 
0180 
0190 


STA SCD 


PLA 

STA SCC 


; DISCARD «OF BYTE 


; HI BYTE OF ADR CL 


;LO BYTE OF ADR CL 


PLA ; BASIC ALUAYS PAS 

HERE AS HI BYTE OF LEN CLINES] 
PLA 

;LO BYTE OF LEN CL 


STA SCF 

LDA <<0 
STA BASIC1 
STA BASIC2 
STA BASIC3 
LDY «0 


;ZERO ALL 
; BYTES OF 
; ANS 

;SET COUNTER 


0200 LOOPA LDA SCB 
0210 STA SD0 

0220 LDA CSCCl.Y 

OM LINES 

0230 STA SCE 

O240 LOOPS CLC 
S' CHAR. BY 1 C* 

0250 


0260 

0270 

0280 

O290 

0300 

0310 

0320 


LDA SCE 
ADC BASIC1 
STA BASIC1 
BCC ONU 
INC BASIC2 
LDA BASIC2 
BNE ONU 
INC BASIC3 


0330 ONU DEC SD0 


0340 

0350 

0360 

0370 

CHAR- 

038O 

SSED? 

0390 


BNE LOOPS 
INY 

INC SCB 
DEC SCF 
REMAINING 
BNE LOOPA 


; GET VALUE OF ’ C 1 
;USE AS A COUNTER 
; GET CHARACTER FR 


; LOOPB ' MULTIPLIE 


; SAME AS C=C+1 
; REDUCE NUMBER OF 

; ALL CHARS- PROCE 

; YES, THEN RETURN 



Ae 

'C.omputet 

Mou'une.t 

from New Horizons 


Tired of always searching for the right recipe? 

Are the pages of your recipe books covered with your recipe ingredients? 
Fed up at guessing amounts when a recipe serves five but you want it for two? 
If so then you need The Computer Gourmet. 

With The Computer Gourmet you can: 

• Easily save your favorite recipes (even give them a rating!) 

• Find any recipe you need within seconds 

• Adjust for a different serving size automatically 

• Print the whole recipe or just the list of ingredients 
Best of all, The Computer Gourmet comes with a disk full of recipes! 

(With everything from main courses to desserts). 


Available on disk for Atari “ computers (requires 48K). To order, send $29.95 plus 
$2.00 for postage (Texas residents please add 5 1/8% sales tax) to: 

New Horizons Software • P.0. Box 180253 • Austin, Texas 78718 
Or, for more information, call (512) 445-1767 



New Horizons 


Expanding Your Life 

Please write to us lor inlormation on all ol our products lor Atari computers. 
Oealer inquiries invited. Atari is a trademark ol Atari, Corp. 


ANTIC SOFTWARE LIBRARY ★ 75 


G.U.P. 

LISTING 2 


continued from page 68 


Don't type the ( 
TYPO II Codes! 




XU 1* REM GRAPHICS UTILITY PACKAGE DEMO 
MG 20 REM BY DAREK MIHOCKA 
FU 30 REM CCJ 1985. AHTIC PUBLISHING 
JP 40 START-16384 

VE 42 IF PEEKCSTART1 =76 THEN 50 
ZA 44 PO.KE 710.66:? "* + G-U.P- Machine 

Language routines are not in henorv! 

FL 46 ? :? " This demo cannot RUN with 

out theser out i nes . see article for ad 

ditional information . •• : END 
PD 50 RANDOM=PEEK CSTART+31 *256*PEEK CST ART 
♦41 

DU 60 B0X = PEEKCSTART*51 ♦ 2 5 6«P EE K C S T A R T + 6 1 

BE 70 LET DRAWTO = PEEK£START*7J + 256*PEEKIS 
T A R T ♦ 8 1 

MJ 80 LINE=PEEKtSTART*9) + 256»PEEKCSTART+l 

01 

SZ 90 CIRCLE=PEEKCSTART*111 ♦ 2 5 6»P E E K C S T A R 
T ♦ 1 2 1 

IJ 100 LET C0L0R=PEEKCSTART+131 + 256**PEEK C 
START+141 

TD 110 LET GRAPHICS = PEEK CST ART *151 + 2 56«*P E 
EKCSTART+161 

IN 120 C128 = PEEK CST ART *171 ♦256**PEEK CST ART 

♦181 

RR 130 CIRF = PEEK CSTART + 191 + 256**PEEK CST ART 
♦201 

XF 140 TEXT = PEEKCSTART *211 *256*PEEKCSTART 
♦221 

ZG 150 LET PLOT=PEEKCSTART+231 +256*PEEKCS 
TART*241 

OE 160 LET SET=PEEK CSTART+251 +256~PEEK CST 
ART + 261 

PG 170 LET SETCOLOR = PEEKCSTART + 271 ♦ 2 56*»PE 
EKCSTART+281 
TC 180 HOROFFSET=208 
UN 190 REM BEGIN MAIN PROGRAM 
UJ 200 GOSUB 910 
XT 210 POKE CIRF.l 

GE 220 A=USR CGRAPHICS, 15) :POKE 752,255 
SI 230 ? “4The same routine in GR.15 with 
G-U.P." 

OT 240 ? "using multiple parameters for s 
peed . •• : A = USR CSET . 85. 85. 85. 851 
81 250 FOR T=0 TO 79 STEP 3 : T2=T/2 : U=159- 
T : U2=1S9-T2 

LN 260 A=USR CLINE, T . T2 . U. U2, T . U2 . U. T2. T , T 
21 

SM 270 NEXT T : POKE 752,255 

FU 280 ? "iTHice the pixels in half the t 

YZ 290 ? "How about some multi-color disp 
1 ays?" 

DO 300 A=USR CSET. 164. 29. 134 . 1651 : GOSUB 11 
6 0 : FOR T = 79 TO 0 STEP -1 
AC 310 A = U S R CLINE, T , T , T , 159-T1 
FG 320 A = USR CLINE - 159-T . 159-T - 159-T . T1 
KF 330 NEXT T 
RE 340 GOSUB 1100 

GL 350 A=USR CGRAPHICS. 151 : POKE 752.255 
YE 360 ? "n And now. the Super Fast CIRCLE 

DJ 370 ? "30 CIRCLES DRAUN IN 4-8 SECONDS 
C 6 CIRCLES PER SECOND!)" 

XX 380 FOR Y = 1 TO 30 
FR 390 A = USR CRANDOM1 

OX 400 A = U SR CCIRCLE. 60 + Y , 60 + Y , 601 

MA 410 NEXT Y 

RB 420 GOSUB 1100 

PS 430 A=USR CGRAPHICS, 151 

UF 448 POKE 752.255:? "More fast circles. 
DR 450 FOR R = 8 0 TO 8 STEP -4 

YZ 460 X=PEEK C201 : A=USR CSET . X , X . X. X) : A=US 
R CCIRCLE. 79. 79, R1 

ES 470 A = U S R CSET , 0, 0, 0 . 0) : A = USR CCIRCLE, 79 
.79.R-21 
JU 480 NEXT R 
RP 490 GOSUB 1100 


T ♦ 7 9 , T.Tl 

r 550 A=USR CSET . 0 . 0 . 0 . 01 : T=T+1 
) 560 A = U S R CLINE. T . T , T ♦ 79 , T , T + 79, T + 79. T . 

T+79.T.T1 
» 570 NEXT T 

) 580 GOSUB 1100 

I 590 A=USR CGRAPHICS , 151 : POKE 752.255:? 
"nOf course, circles can be left empty 

? 600 GOSUB 1160 

[ 610 POKE CIRF.0 

t 620 FOR T = 0 TO 50 STEP 2 

r 630 A=USR CSET . 178 . 170 , 170 , 1701 

> 640 A=USR CCIRCLE. T+45. 79. 601 
) 650 A= USR CSET , 0 , 0 , 0 , 01 

l 660 A=USR CCIRCLE. T+46 . 79 . 601 
) 670 NEXT T 

> 680 GOSUB 1100 : A=USR CGRAPHICS , 151 : POKE 

752 , 255 

; 690 ? "i THE BOX ..." 

< 700 FOR T = 0 TO 70 : U = 3»T : A = USR CSET . U . U . 
U.U1 

; 710 A=USR CBOX. T . T . 159-T . 159-Tl : NEXT T 

£ 720 GOSUB 1100 

) 730 GRAPHICS 8:P0KE 752,255 
I 740 ? "iHow about mixed text and graph 

i c s???" 

r 750 FOR T = 0 TO 3-POKE COLOR + T , 255 : NEXT 

T 

C 760 FOR T = 1 TO 50 

l 770 A = USR CCIRCLE. PEEKC537701/2 + 16. PEEK 
C53770)/2*16.9+PEEKC537701/401 
7 780 POKE CIRF . PEEKC537701/256 
) 790 A=USR CTEXT , 34 , 8 , ADR C"Th is complete 

s the demo"] ,231 

800 A = USR CTEXT . 30 . 24 , ADR C"o f the GRAPH 
ICS UTILITIES"! . 251 
i 810 NEXT T 

> 820 POKE TYPE. 0 : A = USR CTEXT , 32. 8, ADR C" 

"1 . 331 

030 A = USR CTEXT , 28, 32 . ADR C" 

"1 , 261 

840 POKE TYPE . 255 : A=USR CTEXT , 34 . 8 . ADR C 

■•This completes the demo"). 231 

850 A=USR CTEXT , 30, 24 , ADR C"o f the GRAPH 

ICS UTILITIES") , 251 

860 A=USR CC128. 128, 51 

870 A=USR CC128, 120. 61 

880 GOSUB 1100 

890 GRAPHICS 18 : POKE 712.48:? «6 : ? **6 ; 

"THANKS FOR HATCHING":? **6 : ? *»6 : ? **6;" 

the" 

900 ? «6 ; " graphics utility pa 

ckage" : X = USR CC128, 400 . 51 : END 
910 GOSUB 1080 

920 A=USR CGRAPHICS , 151 : POKE 87,7:REM H 
AKE BASIC THINK IT'S IN GR.15. 

930 COLOR 1 : POKE 752,255 

940 ? "Limited by the O-S-. BASIC can 
only use 160x80 resolution in GRAPHI 
CS 15- It is also slow." 

950 FOR T=0 TO 79 STEP 3 : T 2 = T/4 : U = 1 5 9 - 
T : U2=79-T2 

960 PLOT T . T2 : DRAUTO U.U2.DRAMTO T.U2: 
DRAIITO U, T2 : DRAUTO T.T2 
970 NEXT T 
980 GOSUB 1100 

990 RETURN 
1000 GRAPHICS 18: 

EGINNING" 

1010 ? **6 : ? **6;" 

1020 ? t*6 : ? »*6 ; " 

1030 FOR T = 1 TO 50 0 : NEXT 
1040 GRAPHICS l:? **6 : ? **6 
TO G-U.P" 


IN THE B 


"NOW. THANKS 


1050 ? »6 : ? »6;" THE ATARI ALSO HAS" 
1060 ? *»6 : ? »6 ; " BOX. CIRCLE. AND" 

1870 ? **6 : ? »6;" 16 GRAPHICS MODES" 

1088 GOSUB 1100 
1090 RETURN 
1108 POKE 752.255 
1110 ? "»»a 


XU 520 FOR T = 0 TO 70 
UE 530 GOSUB 1160 

KK 540 A = USR CLINE , T » T , T + 79. T , T+79. T + 79, T . 


1120 POKE 764.255 

1130 IF PEEK C7641 =255 THEN 1130 
1140 POKE 764.255 
1150 RETURN 

1160 A=USR CRANDOM1 : RETURN 
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COLORTONEmh 

KEYBOARD 

(Waveform Corp.) 

Protecto Enterprizes 
Box 550 

Barrington, II 60010 
(312) 382-5244 

Reviewed by Nat Friedland 

At $49, the Colortone Keyboard by 
Waveform Corp. is not a tool for pro- 
fessional musicians. But nevertheless 
it is an intriguing Atari music device 
that puts a surprising amount of musi- 
cal power and feedback literally at 
your fingertips. 

The Colortone is a recent conver- 
sion from a fairly successful Commo- 
dore 64 product. As a matter of fact, 
Antic received its copy just one day 
after programmer Russ Karras de- 
livered the conversion software to 
Waveform. Actually our keyboard’s 
converter hookup is a prototype that 
dangles exposed on a spliced cable. 

Distribution for this product is just 
getting set up, but one source you 
should be able to obtain it from is the 
Protecto mail-order house whose ad- 
dress is shown above. (We recom- 
mend that you verify availability by 
phone before mailing Protecto a 
check.) 

The Colortone is a membrane key- 
board, after the fashion of the old 
Atari 400. It’s laid over a sturdy plastic 
base, but looks a lot like those card- 
board piano keyboards that kids in 
group piano classes used for practic- 
ing their fingering. 

Once you select your choices from 
the function keys at the top of the 
board, you will probably wind up 
playing mostly on the Color Harp 
strip above the regular piano-key 
diagram. The Color Harp gives you 
only the notes in the scale you have 
chosen, so you can fool around with- 
out the risk of hitting a drastically 
wrong note. 


The Colortone software does a lot 
of interesting things. You get a choice 
of seven well done pop/rock two- 
voice accompaniments or a simple 
metronome beat. Some of the most 
common and effective rock patterns 
are utilized, boogie, ballad, etc. 

You have eight instrumental voices 
to choose from and a variety of musi- 
cal scales. You can also adjust the 
speed, pause, and listen to playback 
of your solo with or without saving 
it to disk. 

As you are playing, the software 
writes out the musical notation of 
your solo, showing it above the bass 
accompaniment notes. At the same 
time, it also tracks your fingering with 
red lights over a piano key display. 

It is easy to sound pretty good as 
you play along with the accompani- 
ment by tapping or even rubbing your 
fingers over the color harp. You can 
never be drastically out of tune, 
although you are able to experiment 
with interestingly dissonant effects if 
you wish. 

A lot of your noodling will sound 
like the background music from your 
favorite videogames. 

Where Colortone Keyboard even- 
tually shows its limitations is its lack 
of precision at reflecting musical ideas 
you are consciously trying to play. It’s 
often nearly impossible to find a 
specific note you’re looking for in the 
color harp section. And the mem- 
brane sensors on the piano diagram 
don’t respond fast enough to pick up 
speedy passages. 

Eventually it seems that no matter 
what you try to do, you find yourself 
repeating a consistent pattern of chro- 
matic eighth-note scales as the accom- 
paniments pump steadily along. 

□ 



introduces 


DR. P.D. QUICK, D.D. 

Dr. Quick Explains Buying 
On Margin, And Discloses 
THE HIDDEN 
HEALTH BENEFITS 
Of Using PDQ Diskettes 

Q. Doctor Quick, your PDQ Disks are 
double-density. Will they work in my 
single-density disk drive? 

A. Ja. Oh, ja, they work so good, I am telling 
you, yes! They work like a chum. 

Q. Aren’t your PDQ Disks better than I really 
need? 

A. I should hop so! We make sure it is better, 
not just this much, but this much, and then 
some. Double density, ja, and 48 tracks per 
inch, certified. And people is using them 
right now at 96 TPI, is that better yet? You 
betcha my life! 

Q. So why should I pay for quality I don't 
need? 

A. I can't believe what my ears are telling me! 
You don't know of the buying on margin? 
You got always to buy on margin. 
Everything! 

Q. Buy on margin? 

A. I am drawing you a hyperethical case. You 
are going to put a steering column in your 
car, okay? For ten dollars you can get one 
that will last you two, maybe three years. 
Then one day it turns to peanut butter 
while you're driving, and blooey! 

For twelve bucks, let’s say it, you can buy a 
steering column to last five years. For thir- 
teen fifty you could get one to last 24 
zillion years, give or take a zillion. Which 
one do you go for? 

Q. You're talking about a margin of safety, 
then. 

A. You got it. A margin. You like to live 
dangerous, maybe? Go for the cheapie, 
save a buck or two. You got better smarts 
than that? You buy on margin when you 
get a steering column. Or a disk. 

Q. I see your point. 

A. No, that is before the point. Now I tell you 
the point. You ready? 

You buy on margin and get better than you 
need; you smile more, right? Fewer 
wrinkles in the forehead. Your food goes 
down nicer. All those tension backaches, 
they go away. Your doctor looks you over 
and says, “It’s a miracle! I can't believe 
such perfection in a human person!" 

So, you going to chisel? Or do you show is 
nicht so empty up here, and buy on 
margin? 

PDQ — Premium Disk Quality — Diskettes are 

Double-Sided (yes, they’ll work in your 810 Drive) 
as well as Double-Density, and carry a 21-year 
replacement warranty — and even a 3(Fday money- 
back guarantee. 

AND AN EXTRA VALUE! To introduce our new 
line of “NameBrand” disks, we’ll even inscribe 
your name in bright golden letters on each disk at 
no cost! 

PREMIUM QUALITY AT A REASONABLE 
PRICE. NameBrand Disks are $39.90 a box (10 
disks). For 5 boxes or more: $34.90/box. 

PLUS AN INTRODUCTORY OFFER. For 
orders mailed before June 30, 1985, deduct $10.00 
per box. We’re that sure you’ll reorder NameBrand 
PDQ’s once you’ve seen them and tried them! 
AND AN OPPORTUNITY. With each order is in- 
cluded a free Opportunity Disk. Boot its program 
into a 48K or 64K Atari, and give some thought to a 
business of your own. 

Please add $2.00 to your order for postage & handl- 
ing (USA and Canada; others add $4.00). NYS 
residents add 1% sales tax. Rush your order to: 

smmsmM 

Dept. 17 

13 White St. 

Seneca Falls, NY 13148 

AtarP is a registered trademark of Atari Corporation 
Senecorrf is a registered trademark of Seneca 
Computer Company, Inc. 
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A Receive our disk based catalog and 
pricebook. 

A Buy from people who specialize in ATARI 
exclusively. 

A Receive our 8 pg. newspapers 9 times a 
year filled with critiques, special tips, and 
classified ads. 

A Get at least 25% off all titles (and often 
morel). 

A Receive consistant low prices and prompt, 
knowledgeable service. 

A Choose from over 1,500 software items. 


JOIN 

CompuClub 

JL Where Atari owners bi 


TM 


belong. 

3%%r* 800481-31 11 

in Mass, call 617-879-5232 

Please have credit card number ready! 

Or return this coupon with $5.00* 


r* 

1 cc 


YES, l want to be a preferred customer of 
CompuClub” Rush me my catalog and price 
book. Enclosed please find my $5.00 registration 
fee. 

Please make check payable to compuclub' 

Payment enclosed Dcheck □money order 

Bill my □ Mastercard ovisa Expires 

ID# 

Signature 

Name 


n 


I City_ 
I Atari I 


—Zip — 


Hours: Mon. - Fri. 11.00 am 7:00 pm Eastern time 
Answering services after hours 
ComDUClUb". P.O. BOX 652, Natick MA 01760 
•Overseas membership $25.00 per year 
Atari - Trademark of Atari Corporation 
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Software Discounters 

of America (& Peripherals, too!) 

For Orders Only 1-800-225-7638* 

Inquiries and PA 412-361-5291 Open Saturday 

• Free shipping on orders over $100 in continental USA 

• No surcharge for VISA/MASTERCARD 


KOALARYD TOUCH TABLET. 

• Video drawing tool. 

• Comes with Koala 
Painter*® —full feature 
computer graphics program. 

•Use the KoalaPad for cursor 
control, graphics, or custom 
keyboard. 

•Educational, entertainment, 
business software available. 

•Atari® on Disk. 

Lowest 
Price 
Ever 


‘Ordering and Terms: Orders with cashier check or money order shipped im- 
mediately. Personal/company checks, allow 3 weeks clearance. No C.O.D.'s. 
Shipping: Continental U.S.A.— Orders under $100 add $3: free shipping on orders 
over $100. PA residents add 6% sales tax. AK, HI, FPO-APO— add $5 on all orders. 
International Order Policy— No Credit Cards— add $15 or 15% of order whichever 
is greatest. Defective merchandise will be replaced with same merchandise— NO 
CREDITS! Return must have authorization number (412) 361-5291. Prices subject 
to change without notice. 




‘uPhoala 

Technologies Corporation 
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The Online Catalog of Computers and Software 
Our Prices are WHOLESALE + 10% 


SAMPLES!!! 

Star Micronics SG-10 Printer — $261 
Atari 850 Interface — $117 
Indus GT Disk Drive — $234 
Olympia RO Daisy Wheel Printer — $332 
Atari 1050 Disk Drive — $172 
Batteries Included Home Pak — $36 

ASK ABOUT OUR FREE PRICE LIST 
FREE SOFTWARE - FREE BULLETIN BOARD SERVICE 

(408) 353-1836 

We support the complete Atari product line. 

Instant Shipping (or as last as we can). Mastercard & Visa 
accepted (no extra charge). Shipping & handling add 6%. 
California customers add 6.5% sales tax. Order by phone 
Mon.-Fri. - 10 a.m.-5 p.m. PST). Order by modem daily 
6 p.m. -9 a.m.) from our online Telecatalog. 

Prices subject to change without notice. 

COMPUCAT 

24500 Glenwood Hwy., Los Gatos, CA 95030 


When You’re Tired of 
Just Playing Games! 

Have you given up trying to find a 
source for business and educational soft- 
ware? Do you get the feeling that some folks 
are more aware of the latest game than the 
best word processor or pre-school program? 

If so... Welcome to Serious Software, 
where our name says it all. 

Our goal is to provide you with a com- 
prehensive selection of the best business and 
educational materials available for the Atari, 
backed with helpful, knowledgeable advice. 

Write or call for our Free Catalog. 

M.C. and VISA gladly accepted. 


Toll Free 800-782-7007 (Oregon 479-9516) 



310 N.W. 6th St. Grants Pass, OR 97526 


HANDICARDS 


Quick Reference Instructions 
for Atari Programs 

Now available for: 
ATARIWRITER- 
Beginning BASIC 

• Organized commands 

• Easy to read 

• Durable plastic (11” x 4 1/4”) 

• Use on or off computer 
Only $8.95 ea. postpaid 

(Both for only $15.95 ppd.) 

NY residents add sales tax 
Dealer Inquiries Invited ‘Trademark of Atari Corp, 


Handi Publishing Inc. 
P.O. Box 453 
Ardsley, NY 10502 


PROGRAMMERS WORKSHOP 15 

PROTECTO ENTERPRIZES 26,27 

ROYAL SOFTWARE 13 

SENECOM 77 

SERIOUS SOFTWARE 19 

SOFTWARE DISCOUNTERS OF AMERICA 36,78 

SOUTHERN SOFTWARE 67 

SUBLOGIC . . . ! 2 

TELESYS 44 


This is provided as a convenience and as a courtesy to 
advertisers. ANTIC does not guarantee accuracy or 
comprehensiveness. 


SPARE PARTS FOR 
YOUR ATARI 


Hard to find Integrated Circuits S5. each 
On CPU: GTIA. ANTIC. CTIA. 

CPU 6502. CPU 6511 
On 10K OS. Math ROM 399B. OS ROMs 
499B & 599 B 

On 800/400 Main: Pokey. 6520 PI A 
On 810 & 850: MPU 6507. PIA 6532. 

RAM 6810. ROM C 

Field Service Manuals 800/400, 800XL or 810 $25 ea 
For 1050 or 1200XL $20 ea. For 410 or 835 $15 ea 
Diagnostic Cartridges Computer or Disk $25 ea 


B **Conputervisioiis 

(408) 554-0666 

3400 El Camlno Real, #1, 

Santa Clara, CA 95051 

Hours. Tuesday-Friday 10am-7pm, 

Sat. 10am-5pm 

Terms: UPS Shipments within USA. Add $5 COD 
or prepaid. Calif. Res. add 6V4% sales tax. 


BETTER’N BIG BEN 

Provide your home computer 
the current time & date 
with the new Click Clock 
from Dandy Data. 

Features: 

• Easy installation 

plugs into Atari- standard 
joystick port 

• Long-life battery power 
Click Clock arrives running 

• Sample software included 

• 1001 programming uses 
Time to order. 

For your Click Clock 
send $45 in payment to: 

DANDY DATA 

23000 SW STAFFORD ROAD 
TUALATIN, OR 97062 

“Hand Assembled in Oregon” 








Service Centers. Retailers, to 
get your listing in Antic call 
(415)661-3400 


atari service center 


ALABAMA 

VIDEO REPAIR CO. 

2009 CENTERPOINT RD. 
BIRMINGHAM 
205-854-5212 
RAINBOW CITY SERVICE 
CENTER 

244 RAINBOW PLAZA 
GAOSEN 
205-442-6810 
C & R ELECTRONICS 
704 HOLCOMBE AVE. 

MOBILE 
205-473-3030 
BUSINESS SERVICES 
2828 CHESTNUT ST. 
MONTGOMERY 
205-834-2290 

ARIZONA 

RICK'S TV & APPLIANCE 
1104 E. DEUCE OF CLUBS 
SHOW LOW 
602-537-7625 

CALIFORNIA 

LEARNING TREE COMPUTER 
CTR. 

2441 N. TUSTIN SUITE BCD 
SANTA ANA 
714-667-1575 
COMPUTER SUPPORT 
SERVICE 

52 S. LINDEN AVE #1 
SOUTH SAN FRANCISCO 
415-589-9800 


LOOKING GLASS 

MICROPRODUCTS 

4233 WEST EISENHOWER 

LOVELAND 

303-669-2681 


FLORIDA 

R & S ELECTRONICS. INC. 
3245 W. MCNAB RO. 

FT. LAUDERDALE 
305-979-6763 

BOURQUE'S ELECTRONIC 
SERVICE 

180 RICHPIEN RD. 

FT. WALTON BEACH 

904-862-3346 

MR. SOFTWARE 

101 HOLLYWOOD FASHION 

CENTER 

HOLLYWOOD 

305-981-9090 

ENTERTAINMENT SERVICES 
ELECT. 

811 EOGEWOOD AVE. S. 
JACKSONVILLE 
904-786-1305 
COMPUTER IMAGE 
10061 SUNSET DR. 

MIAMI 

305-271-1224 
COMP-U-PHONE 
6160 EDGEWATER DR. 

SUITE E. 

ORLANDO 

305-291-1712 


OMEGA ENTERPRISES 
7823 N. 2N0 ST. 
ROCKFORO 
815-282-1477 

INDIANA 

WRIGHT ELECTRONICS 
614 N MAIN ST. 
EVANSVILLE 
812-423-2845 

CITIZEN'S TV & VIDEO 

827 W. GLENPARK AVE 

GRIFFITH 

219-924-0047 

THE COMPUTER CORNER 

7101 BROADWAY 

MERRILLVILLE 

219-738-3282 

KANSAS 

MIDWEST APPLIANCE 
SERVICE 

METCALF SOUTH MALL 
OVERLAND PARK 
913-341-6688 

KENTUCKY 

FACTORY ELECTRONICS 
2422 PALUMBO OR 
LEXINGTON 
606-269-7341 
VANOVER TV HOSPITAL 
2027 CUMBERLAND AVE. 
MIDDLESBORO 
606-248-3827 


0 & G COMPUTERS 

4156 MANZANITA AVE #200 

CARMICHAEL 

916-485-7779 

SAN JOSE COMPUTER 

1844-E ALMADEN RO. 

SAN JOSE 
408-723-2025 
B & C COMPUTERVISION 
3400 EL CAMINO REAL 
SANTA CLARA 
408-554-0666 
ATCOM COMPUTERS 
1421 THOUSAND OAKS BLVD. 
THOUSAND OAKS 
805-497-1220 
AUTHORIZED COMPUTER 
SERVICE 

951 W FOOTHILL BLVO. 
UPLAND 
714-985-2101 
TESTEK 

7224 VALJEAN AVE 
VAN NUYS 
818-786-6890 

COMPUTER JUNCTION. INC. 
15000 7TH ST. SUITE 214 
VICTORVILLE 
619-245-3622 

COLORADO 

AMERICAN TELEVISION 
SERVICE CO 

1226 W LITTLETON BLVO. 

LITTLETON 

303-795-2040 


GEORGIA 

GOODWIN'S ELECTRONICS 

JUNCTION SHOPPING CENTER 

ALBANY 

912-435-9605 

NORMAN'S ELECTRONICS. 

INC. 

4014 PEACHTREE RO. NE 

ATLANTA 

404-237-3349 

ELECTRONIC SPECIALISTS 

1685 EDNA PLACE 

MACON 

912-742-5628 

RADIOS AND 

MICROCOMPUTERS INC 

3833A WASHINGTON RD 

MARTINEZ 

404-863-9071 

HARRIS TV 

1 E. MONTGOMERY 

CROSSROAD 

SAVANNAH 

912-927-2084 

HAWAII 

KONA COMPUTER 
75-5706 HANAMA PL #107 
KAILUA-KONA 
808-329-8574 

ILLINOIS 

DIGITAL WORLD. INC. 

711 ARMY TRAIL RD. 

ADDISON 

312-543-9000 


LOUISIANA 

COMPUTER ELECTRONICS 
1955 DALLAS OR 
BATON ROUGE 
504-924-8066 

MASSACHUSETTS 

CUSTOM ELECTRONICS 
238 EXCHANGE ST. 
CHICOPEE 
413-592-4761 
BEACON TV-ELECTRONICS 
8 TILESTON ST. 

EVERETT 
617-389-8600 
CONDOR SERVICE 
372 SOUTH MAIN ST. 
SHARON 
617-784-2382 
ROCOM. INC. 

184 MAIN ST. 

WAREHAM 

617-295-2542 


MARYLAND 

NATIONAL BUSINESS & 
SECURITY 

8639 LOCH RAVEN BLVO 
BALTIMORE 
301-665-8870 
EDGEWOOD TV & AUOIO 
4932 EDGEWOOO RD 
COLLEGE PARK 
301-441-9116 


CROFTON TV & VIDEO 
SERVICE 

2217 DEFENSE HWY 

CROFTON 

301-721-1700 

COMPUVISION COMPUTER 
CENTER 

6445 BURWOOD PL 
GLEN BURNIE 
301-850-4055 

AOVANCED COMPUTER 
SERVICE CO. 

287 E. GREEN ST. 

WESTMINSTER 

301-876-8202 

MAINE 

AUTOMATIC SERVICES 

22 TARGET INDUSTRIAL 

CIRCLE 

BANGOR 

207-942-6769 

J.D. ELECTRONICS 

385 STEVENS AVE. 

PORTLAND 

207-775-1411 

MICHIGAN 

FUTURE DIRECTIONS 

1520 N. VAN DYKE 

BAD AXE 

517-269-7211 

THE FAMILY COMPUTER 

CENTER 

3895 W 12 MILE RO. 
BERKLEY 

313-543-0520 . 

CHASE TRANSISTOR SERVICE 

521 LEONARD ST NW 

GRANO RAPIDS 

616-454-9000 

ABL ELECTRONIC SERVICE. 

INC. 

32 E 14 MILE ROAD 
MADISON HEIGHTS 
313-588-6663 
SOLID STATE SERVICE 
548 SHATTUCK RD 
SAGINAW 
517-752-0606 

MINNESOTA 

PHILIPS COMMUNICATIONS 
8 TV 

748 N.E. HARDING ST. 

MINNEAPOLIS 

612-378-7200 

USER FRIENDLY COMPUTER 
8465 PLAZA BLVD. 

SPRING LAKE PARK 
612-786-8181 


MISSOURI 

SOUTHLAND ELECTRONICS 
22 E. OLIVE DR. 

AURORA 
417-678-4623 
MIOWEST APPLIANCE 
SERVICE 

METRO NORTH MALL 
KANSAS CITY 
816-436-7010 


COMMUNITY SOUND & VIDEO 
1834 S. STEWART 
SPRINGFIELD 
417-887-3391 

A & E ELECTRONICS CORP 
2001 BIG BEND BLVO. 

ST. LOUIS 

314-645-7733 

J & S VIDEO VISIONS 

1051 WASHINGTON SQUARE 

CENTER 

WASHINGTON 

314-239-2677 

MISSISSIPPI 

ELECTRONIC SERVICES 
2315 25TH AVE 
GULFPORT 
601-863-3772 

NORTH CAROLINA 

SOUTHERN PHOTO 
TECHNICAL SVCE 
2610 SOUTH BLVO. 
CHARLOTTE 
704-523-0012 

NEW JERSEY 

DEPENDABLE PARTS. INC. 

168 MAIN ST. 

CHATHAM 
201-635-5888 
S R OATA 

2141 WOODBRIOGE AVE 

EDISON 

201-985-5017 

AOVANCED ELECTRONICS 

VILLAGE SHOPPING CENTER 

RT 206 

FLANDERS 

201-584-1252 

TELSAR ELECTRONIC 

SERVICES. INC 

829 STONE RD. 

LAUREL SPRINGS 

609-783-8500 

VIDEO ELECTRONICS 

COMPUTER SVC 

1418 ROSELLE ST 

LINDEN 

201-925-1418 

VIDEO CONNECTION OF 

SOMERSET 

900 EASTON AVE. 

SOMERSET 
201-545-8733 
K & S ELECTRONICS 
119 HAMILTON BLVD. 

SOUTH PLAINFIELD 
201-755-4204 


NEW YORK 

ISLAND VIDEO COMPUTER 
SERVICE 

35 MIDDLE COUNTRY RO. 

CORAM 

516-736-1001 

AARDVARK ELECTRONIC 

SERVICE 

44 CASTLE ST. 

GENEVA 

315-789-5295 


LONG ISLAND COMPUTER 
GENERAL 

103 ATLANTIC AVE. 

LYNBROOK 

516-887-1500 

ABC ELECTRONICS SERVICE 
CO. 

392 THURSTON RD. 

ROCHESTER 

716-328-1840 

OHIO 

ARJAY MICRO 
1385 BETHEL RO. 

COLUMBUS 
614-459-4219 
STATION FUN TV, INC. 

206 CLINTON ST. 

DEFIANCE 
419-782-8545 
COMPUTER CREATIONS 
424 E. STROOP RO. 

KETTERING 

513-294-0222 

8 AND G ELECTRONICS. INC. 

15729 MADISON AVE 

LAKEWOOD 

216-521-2855 

ERIC MARTIN'S. INC. 

5485 WARRENSVILLE CENTER 
RO. 

MAPLE HGTS 
216-663-2032 
VIOEO COMPUTER WORLD. 

INC. 

2223 WOODVILLE RD 
OREGON 
419-691-7282 
0000 CO. 

7795 W. RIDGEWOOD DR. 

PARMA 

216-886-2828 

OREGON 

NORTHWEST COMPUTER 

SUPPORT.INC 

10200 S.W. NIMBUS G-1 

PORTLAND 

503-684-3280 


PENNSYLVANIA 

KIBLER'S INDEPENDENT TV 

526 FALLOWFIELD AVE. 

CHARLEROI 

412-483-7484 

PARK T MORROW. INC. 

627 W. 26TH ST. 

ERIE 

814-455-7566 

DEBUG BYTES COMPUTERS 
662 PHILADELPHIA ST. 
INDIANA 
412-349-7290 

GRUSS ELECTRONIC REPAIR 
HILLS PLAZA 
JOHNSTOWN 
814-266-1395 
TESCO. INC. 

9237 ROOSEVELT BLVD. 

PHILADELPHIA 

215-677-5000 


ANTIC, The Atari Resource 



atari service center ■ 


NATIONAL TELEVISION 
SERVICE 

5461-63 PENN AVE 
PITTSBURGH 
412-361-5400 
BOYO TV 

719 UNCASTER AVE 

WAYNE 

215-688-3727 

RHODE ISUND 

VIDEO ENCOUNTERS 
MAINES SHOPPING CENTER 
WAKEFIELD 
401-783-3460 

SOUTH CAROLINA 

ELECTRONIC SERVICE CO. 

1736 OECKER BLVD 

COLUMBIA 

803-782-2705 

COASTAL TV & APPLIANCE 

CO. 

603 HWY 501 

CONWAY 

803-248-2686 

SOUTH DAKOTA 

TAYLOR AUDIO-VISUAL. INC. 
1009 DAKOTA S. 

HURON 

605-352-3205 


HOUSE OF TELEVISION 
601 SOUTH DULUTH AVE. 
SIOUX FALLS 
605-338-9051 

TENNESEE 

HI-FI SERVICE CENTER 
4608 HIXSON PIKE 
CHATTANOOGA 
615-877-6781 

BILLS T.V. SALES & SERVICE 
3843-C DICKERSON RD. 
NASHVILLE 
615-865-5000 

TEXAS 
TV CENTER 
202 S. WILLIS 
A8ILENE 
915-677-1171 
PACIFIC STEREO 
525 113TH ST. 

ARLINGTON 

817-640-3094 

LONGS/ENTRONIX 

5800 MAPLE AVE 

DALLAS 

214-358-3222 

COMPUTER HOME. INC. 

3548 KNICKERBOCKER 
SAN ANGELO 
915-944-9795 


UTAH 

INTERWEST ELECTRONICS 
CORP 

4091 SOUTH STATE ST. 

SALT UKE CITY 
801-266-5301 

VIRGINIA 

SALEM COMPUTER CENTER 
4034 PLANK RD. 

FREDERICK 

703-786-8126 

VIDEO UNLIMITED -SERVICE 

CENTER 

1707 ROUTE 17 

GRAFTON 

804-898-5318 

L & Y ELECTRONICS 

13670 JEFFERSON DAVIS 

HWY 

WOODBRIDGE 

703-494-3444 

WASHINGTON 

ON LINE COMPUTERS PLUS 
13710 NE 20TH ST. 

BELLEVUE 

206-644-2080 

BUTLER'S TV & COMPUTER 
SERVICE 

28717 PACIFIC HWY SOUTH 
FEDERAL WAY 

206-941-9096 


PARTS/SERVICE FOR ATARI COMPUTERS 

FLAT SERVICE RATES BELOW INCLUDE PARTS AND LABOR 
60 DAY WARRANTY 

800 Computer Repair $65.00 800XL Computer Repair $67.50 

400 Computer Repair $47,50 810 Disk Drive Repair $79,50 

600XL Computer Repair $65.00 850 Interface Repair $60.00 

I200XL Computer Repair $65.00 1050 Disk Drive Repair $85.00 

Above units repaired or exchanged with rebuildable ©change. 

Include $7.00 return shipping and insurance 


INTEGRATED 
CIRCUITS 

GTIA Chip C0I480S 

upgrade with instructions ... $1 1 .50 
I OK rev. “B” O.S. Upgrade 
3 chip rom set with instructions . . . $12.50 
Pokey Chip . . . C0I2294 . . . $8.50 
Antic Chip . . . CO 1 2296 . . . $10.00 
PIA Chip . . . C0I4795 . . . $11.00 
CPU Chip . . . CO 14806 . . . $12.50 
Basic ROM set . . . $15.00 


REPLACEMENT/ 
BACK UP 
BOARD SETS 


$72.50 

. $125.00 
. $52.50 
. $110.00 


400 . 


OK . 


810 Board Set 
810 Mech . . . $85.00 
All Boards Complete With IC's Etc. 
Keyboards not included. 

Overseas customers ... ask 
for PAL price list. 


MISC. 


MODULES/CIRCUIT 
BOARDS. ..complete with IC’s 

I6K Ram Memory Module . 

CX853 $24.50 

800 I0K Rev. "B" O.S. Module . . . $18.50 
800/400 CPU Board with GTIA . . . $24.50 810 Rear Board/Analog Board Upgrade 
800 Main Board . . . $28.50 
400 Main Board . . . $26.50 
400 Main Board W/O IC'S . . $8.50 
800 Power Supply Board . . . $10.50 
810 Data Separator Board . . . 
upgrade with instructions . . . $25.00 
810 Side Board W/O Sep. & 1771 . . . 

810 Rear Power Board . . . $25.00 
810 Analog Board . . . $16.00 


with 10 pin jumper and instructions . . . $39.50 
Editor Assembler . . . $29.95 
Basic Cartridge W/O Case. Manual . . $23.50 
Cartridge Circuit Boards . . . $4.00 
Non-Atari Cartridge Boards . . . $2.00 
Non-Atari power transformer . . . $16.50 
$43 50 8ams Repair Manual 

for 800 or 400 ... $17.50 E A. 

800 Keyboard Repair . . . $35.00 
De Re Atari ... $12.50 

PHONE 415-352-3787 


AMERICAN TV 

Mail Order & Repair Address . . . 15338 Inverness St., San Leandro, CA 94579. 

Retail Store . 1988 Washington Ave. San Leandro CA 94577. 

Terms: We accept money orders, personal checks or COD VISA/Mastercard OK on orders over 
$25.00. No personal checks on COD 

Shipping: $4.00 Shipping and handling on orders under $150.00. Add S2.C0 for COD orders. CA 
res. include 6-1/2% sales tax. Overseas shipping extra. 

Prices subject to change without notice We reserve the right to limit quantities. Sales limited to 
stock on hand. Much More 1 Send SASE for free price list. 

Repair and upgrade services available Call. ’Atari is a registered trademark of Atari. Inc. 


ARTICULATE SYSTEMS 
E 9405 SPRAGUE AVE. 
SERVICE CTR 
SPOKANE 
509-922-0255 

JOHNSON'S TELEVISION 
SERVICE 
N 4424 WALL 
SPOKANE 
509-327-9566 

WISCONSIN 

AUTHORIZED TV 
810 NINTH ST. 

GREEN BAY 
414-499-4215 
DAN'S CITY WIDE TV. 
1259 E. JOHNSON ST. 
MADISON 
608-255-4144 
MISTER TV SERVICE 
5455 W. BURLEIGH ST. 
MILWAUKEE 
414-873-2415 

WEST VIRGINIA 

COMPUTERS PLUS. INC. 
2077 CHARLESTON TOWN 
CENTER 
CHARLESTON 
304-342-4848 


Next Month 

COMPUTER 

CHALLENGES 

O Battle Of The 
Chess Programs 

# Coverage Of Atari 
Meeting At Antic 

• Inside Strategic 
Simulations Inc. 

+ Another Mind- 
Boggling Cover 
By Okamoto 



PASCAL 

For the Atari 

kyan pascal is the most complete package available for learn- 
ing and using the Pascal language. And now, it’s available for 
the Atari family of computers. 

kyan pascal is easy to use, lightning fast, and loaded with fea- 
tures. It's a full Pascal implementation and perfect for both be- 
ginning and advanced programmers. 
kyan pascal features: 

• Optimized Machine Code Compiler; 

• Built-In Full Screen Text Editor; 

• String-Handling, Chaining, Include File, and Other 
Powerful Extensions; 

• 13-Digit Arithmetic Precision and Full Graphics 
Support; 

• Built-In Assembler (Allows Full Hardware Control); and, 

• Tutorial Manual with Sample Programs. 

kyan pascal requires 48K of memory and a single disk drive. 
No additional hardware is necessary. And, it comes with kyan’s 
MONEY BACK GUARANTEE If not completely satisfied, 
return it within 15 days for a full refund. 
kyan pascal for the Atari S69.95 

(Add $4 50/copy for handling. $12 00 outside North America, California 
residents add S4 55/copy for sales tax) 

Send Check/Money Order to: kyan software. Dept. N 
Call: (415) 775-2923 1850 Union St.. Ste. 183 

MC/Visa Accepted 1 [00)| San Francisco, CA 94123 
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new products 

— — 



AERO HHBBH 

(printer) 

Alphacom 

2323 South Bascom Ave. 
Campbell, CA 95008 
(408) 559-8000 
$249-95 


New Products notices are compiled by the 
Antic staff from information provided by 
the products’ manufacturers. Antic wel- 
comes such submissions, but assumes no 
responsibility for the accuracy of these 
notices or the performance of the prod- 
ucts listed. 



Described as an Epson-compatible dot- 
matrix printer, the Aero is rated at 130 
cps. It uses a 6x9 matrix field, con- 
tains a 2K buffer and supports (all on 
the same line) superscript, subscript, 
double strike, enlarged and emphasized 
print and underlining. 



PLUS WRITER 

(printer) 

Alphacom 

2323 SO. BASCOM Ave. 

Campbell, CA 95008 
(408) 559-8000 
$399 

Alphacom claims this new 20 
character-per-second daisywheel 
printer is the perfect printer for your 
Atari. Plugging directly into your Atari, 
the PlusWriter emulates the Diablo 630 
and uses standard ribbons and daisy- 
wheels. We are told that the printer 
supports superscript, subscript, 
boldface, proportional spacing and 
underlining. 



GE 3-8100 PRINTER 

GE PRINTER 

INTERFACE MODULE MHH 1 

(printer and interface) 

General Electric Company 
Electronics Park 
Syracuse, NY 13221 
(315) 456-2446 
$299. 95 (printer) 

$89. 9 5 (interface) 

GE’s foray into the home computer 
market includes a dot-matrix printer 
capable of “letter quality’’ print at 25 
cps or regular draft printing at 50 cps. 

The interface will connect the 
printer directly to an Atari. 

QUESTBUSTERS HHiH 

(adventure newsletter) 

202 Elgin Court 
Wayne, PA 19087 
$ 15/year 

This monthly adventure game newslet- 
ter covers recent news, reviews, and 
the like. It is not Atari-specific. 



WIRE TREE PLUS 

(line filter) 

Networx 

203 Harrison Place 
Brooklyn, NY 11237 
(718) 821-7555 
$99.95 

This surge/spike filter not only protects 
electrical lines for computers and 
peripherals, but also protects two 
modular phone lines (providing exactly 
the kind of filtering and protection the 
Atari 1030 modem doesn’t have). 

Q-MODEM HHHHi 

(modem) 

Quantum Microsystems Inc. 

P.O. Box 179 
Liverpool, NY 13088 
(315) 451-7747 
$149.95 

A 300-baud direct connect modem 
with autodial, autoanswer and other 
advanced features, the Q-Modem plugs 
directly into your Atari and fits in the 
palm of your hand. It even comes 
with the famous QuanTerm software, 
which uses color displays, on-screen 
menus, a built-in editor, multiple buf- 
fers and so on. 

Return the favor. When you call a 
manufacturer or supplier about a 
product you ’ve seen advertised or other- 
wise mentioned in ANTIC, please tell 
them so. This will help us to continue to 
bring you the latest information about 
products that will make your Atari com- 
puter an even more valuable investment 
in the future. — ANTIC ED Q 
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Introducing the all-new Indus GT ,M disk 
drive. The most advanced, most complete, most 
handsome disk drive in the world. 

A flick of its "Power" switch can turn your Atari 
into a Ferrari. 

Looks like a Ferrari. 

The Indus GT is only 2.65" high. But under its 
front-loading front end is slimline engineering 
with a distinctive European-Gran flair. 

Touch its LED-lit CommandPost™ function con- 
trol AccuTouch™ buttons. Marvel at how respon- 
sive it makes every Atari home computer. 

Drives like a Rolls. 

Nestled into its soundproofed chassis is the 
quietest and most powerful disk drive power sys- 
tem money can buy. At top speed, it's virtually 
unbearable. Whisper quiet. 

Flat out, the GT will drive your Atari track-to- 
track 0-39 in less than one second. And when 
you shift into SynchroMesh DataTransfer, IM you'll 
increase your Atari's baud rate an incredible 
400%. (Faster than any other Atari system drive.) 

And, included as standard equipment, each 
comes with the exclusive 
GT DrivingSystem IM of 


software programs. World-class word processing 
is a breeze with the GT Estate WordProcessor.™ 
And your dealer will describe the two additional 
programs that allow GT owners to accelerate their 
computer driving skills. 

Also, the lndus GT is covered with the GT 
PortaCase™ A stylish case that conveniently dou- 
bles as a 80-disk storage file. 

Parks like a Beetle. 

The GT's small, sleek, condensed size makes it 
easy to park. 

So see and test drive the incredible new 
Indus GT at your nearest 
computer dealer soon. 

The drive will be 
well worth it. 

Indus 

The all-new Indus GT Disk Drive. 

The most advanced, most handsome disk drive in the world. 




For additional information, call n -')(>00 

cf l‘)8 i Indus Systems l ) $04 Deering Avenue. Chatsworlh, C A l )U!l. The Indus C,T is a produc t ol Indu 


is Systems. Atari is a registered trademark ot Atari, Inc . 




SOPHISTICATED SMART TERMINAL 
SOFTWARE ON CARTRIDGE 


FEATURES: 

□ Supports XMODEM Protocol 

□ ASCII/ ATASCII Translation 

□ Allows Transfer of Files Larger than Memory 

□ Upload /Download of Text and Programs 


ONLY 

$149.95 


□ 100% Machine Language 


□ Loads a 65 Column Screen Driver 



Mkroreaffl] 


ParaM [MM®? [teftartfesi 


Works with Atari, 400, 800, 
600XL and 800X1.^ 

Replaces Atari 850 Interface 
Module 

Compatible with all software 
5-foot cable with Centronics 
plug (compatible with Epson, 
NEC, Prowriter, etc.) 
Connects to serial bus on 
computer 
2 Year Warranty 


Gtffi^ ) = , QCQXoXQ)C 



Auto Answer/ Auto Dial 
Direct Connect to Phone Line 
No Atari 850 1 nterface 
Module Needed 
Includes AC Adapter/ 

Power Supply 

Free CompuServe DemoPak:" 

1 Year Warranty 
Connects to Joystick Port 
Works on ALL Atari Computers 


□ Multiple Buffers 

□ Off-Line Editing 

□ Variable Baud Rate 

□ Parity Options 

□ Full/Half Duplex 



flucoMm mm mmu<m 

225 Third Avenue, SW • Albany, OR 97321 
O R D E RS : 1 -800-624-7 532 
C U STO MER SERVICE:! -503-967-9075 


Atari and CompuServe DemoPak are trademarks of Atari Corp. and CompuServe. 


Our goal is to preserve classic video game magazines so that 
they are not lost permanently. 


People interested in helping out in any capacity. 

Please visit us at www.retromags.com 

No profit is made from these scans, nor do we offer anything 
available from the publishers themselves. 

If you come across anyone selling releases from 
tf is life, please do not support them and do let us know. 
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Thank you! 



